A122063 a(1) = 17, a(n) = sum of digits of all previous terms.

17, 8, 16, 23, 28, 38, 49, 62, 70, 77, 91, 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

Offset: 1

Author

Herman Jamke (hermanjamke(AT)fastmail.fm), Sep 14 2006

Keywords

• nonn
• base

Comments

From a quiz.

References

• A. Wareham, Test Your Brain Power, Ward Lock Ltd (1995).

Crossrefs

Cf. A004207.

Programs

Mathematica

s={17};Do[AppendTo[s,Total[Total/@IntegerDigits/@s]],{n,53}];s (* James C. McMahon, Oct 25 2024 *)