OFFSET
1,1
LINKS
FORMULA
a(n) = 1 for n > 6. - Charles R Greathouse IV, Jun 03 2026
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 *)
PROG
(PARI) a(n)=if(n>6, 1, [97, 88, 72, 51, 26, 10][n]) \\ Charles R Greathouse IV, Jun 03 2026
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
N. J. A. Sloane, based on email from R. J. Mathar, Apr 04 2007
STATUS
approved
