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

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,1

Links

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

Mathematica

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

Crossrefs

Cf. A033298.

Sequence in context: A203781 A189352 A005953 * A252599 A023099 A209954

Adjacent sequences: A051369 A051370 A051371 * A051373 A051374 A051375

Keyword

nonn,base,easy,less

Author

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

Status

approved