A169737 a(1) = 100; for n>1, a(n) = a(n-1) + digitsum(a(n-1)).

100, 101, 103, 107, 115, 122, 127, 137, 148, 161, 169, 185, 199, 218, 229, 242, 250, 257, 271, 281, 292, 305, 313, 320, 325, 335, 346, 359, 376, 392, 406, 416, 427, 440, 448, 464, 478, 497, 517, 530, 538, 554, 568, 587, 607, 620, 628, 644, 658, 677, 697, 719, 736, 752

Offset: 1

Author

N. J. A. Sloane, May 01 2010

Keywords

• nonn
• base

Crossrefs

Cf. A169732, A007618. First differences are A065075.

Programs

Mathematica

NestList[#+Total[IntegerDigits[#]]&,100,60] (* Harvey P. Dale, Aug 23 2019 *)