login
A008461
Take sum of squares of digits of previous term.
3
7, 49, 97, 130, 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
OFFSET
1,1
MATHEMATICA
NestList[Total[IntegerDigits[#]^2]&, 7, 100] (* Harvey P. Dale, Mar 12 2014 *)
CROSSREFS
Sequence in context: A230655 A357302 A343771 * A043131 A082701 A044145
KEYWORD
nonn,base
AUTHOR
STATUS
approved