%I #9 Aug 25 2015 10:31:46
%S 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,
%T 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,
%U 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
%N Take sum of squares of digits of previous term.
%H <a href="/index/Rec#order_01">Index entries for linear recurrences with constant coefficients</a>, signature (1).
%t NestList[Total[IntegerDigits[#]^2]&,7,100] (* _Harvey P. Dale_, Mar 12 2014 *)
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_.