OFFSET
1,1
LINKS
MATHEMATICA
nxt[n_]:=Module[{u=Last[IntegerDigits[n]], t=Floor[n/10]}, u+t^2]; NestList[nxt, 97, 110] (* Harvey P. Dale, Oct 22 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, based on email from R. J. Mathar, Apr 04 2007
STATUS
approved