STATUS
editing
approved
editing
approved
<a href="/index/Rec#order_01">Index entries for linear recurrences with constant coefficients</a>, signature (1).
approved
editing
editing
approved
NestList[Total[IntegerDigits[#]^2]&, 7, 100] (* Harvey P. Dale, Mar 12 2014 *)
approved
editing
_N. J. A. Sloane (njas(AT)research.att.com)_.
nonn,base,new
N. J. A. Sloane (njas(AT)research.att.com).
nonn,base,new
nonn,base,new
Take sum of squares of digits of previous term.
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
1,1
nonn,base
njas
approved