login
A112667
a(n+1) is the sum of the units digit of a(n) and the square of the tens digit of a(n).
1
97, 88, 72, 51, 26, 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
OFFSET
1,1
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
Sequence in context: A244192 A075478 A126146 * A106419 A253387 A074482
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, based on email from R. J. Mathar, Apr 04 2007
STATUS
approved