STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
s={17}; Do[AppendTo[s, Total[Total/@IntegerDigits/@s]], {n, 53}]; s (* James C. McMahon, Oct 25 2024 *)
approved
editing
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
1,1
From a quiz.
A. Wareham, Test Your Brain Power, Ward Lock Ltd (1995).
Cf. A004207.
nonn,base,new
Herman Jamke (hermanjamke(AT)fastmail.fm), Sep 14 2006
approved