%I #5 Oct 26 2024 10:48:32

%S 17,8,16,23,28,38,49,62,70,77,91,101,103,107,115,122,127,137,148,161,

%T 169,185,199,218,229,242,250,257,271,281,292,305,313,320,325,335,346,

%U 359,376,392,406,416,427,440,448,464,478,497,517,530,538,554,568,587

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

%C From a quiz.

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

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

%Y Cf. A004207.

%K nonn,base

%O 1,1

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