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

Links

Table of n, a(n) for n=1..54.

Mathematica

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

Crossrefs

Cf. A169732, A007618. First differences are A065075.

Sequence in context: A252480 A323142 A220401 * A070794 A090429 A248711

Adjacent sequences: A169734 A169735 A169736 * A169738 A169739 A169740

Keyword

nonn,base

Author

N. J. A. Sloane, May 01 2010

Status

approved