A051370 a(n+1) = a(n) + sum of digits of a(n)^2, with a(1) = 8.

8, 18, 27, 45, 54, 72, 90, 99, 117, 144, 162, 180, 189, 207, 234, 261, 279, 306, 333, 360, 378, 405, 423, 459, 477, 504, 522, 549, 558, 576, 603, 630, 657, 684, 720, 738, 765, 792, 819, 846, 873, 900, 909, 936, 972, 1008, 1026, 1053, 1080, 1098, 1116

Offset: 1

Author

Miklos SZABO (mike(AT)ludens.elte.hu)

Keywords

• nonn
• base
• easy
• less

Crossrefs

Cf. A033298.

Programs

Mathematica

NestList[#+Total[IntegerDigits[#^2]]&,8,50] (* Harvey P. Dale, Aug 13 2015 *)