BaseForm[x,p] where p=31,x = 12445536