BaseForm[Mod[x x, p^10],p] where p=31,x = 304246821079716