|
%I #8 Aug 13 2015 14:39:58
%S 8,18,27,45,54,72,90,99,117,144,162,180,189,207,234,261,279,306,333,
%T 360,378,405,423,459,477,504,522,549,558,576,603,630,657,684,720,738,
%U 765,792,819,846,873,900,909,936,972,1008,1026,1053,1080,1098,1116
%N a(n+1) = a(n) + sum of digits of a(n)^2.
%t NestList[#+Total[IntegerDigits[#^2]]&,8,50] (* _Harvey P. Dale_, Aug 13 2015 *)
%Y Cf. A033298.
%K nonn,base,easy,less
%O 1,1
%A Miklos SZABO (mike(AT)ludens.elte.hu)
|
