A051372 a(n+1) = a(n) + sum of digits of a(n)^2, with a(1) = 567.

567, 594, 621, 648, 675, 702, 729, 747, 774, 810, 828, 864, 900, 909, 936, 972, 1008, 1026, 1053, 1080, 1098, 1116, 1143, 1170, 1197, 1224, 1260, 1287, 1323, 1350, 1368, 1395, 1422, 1440, 1458, 1485, 1503, 1530, 1548, 1575, 1602, 1629, 1656, 1683, 1719

Offset: 1

Author

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

Keywords

• nonn
• base
• easy
• less

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A033298.

Programs

Mathematica

NestList[#+Total[IntegerDigits[#^2]]&,567,50] (* Harvey P. Dale, Mar 20 2021 *)