OFFSET
1,1
COMMENTS
From a quiz.
REFERENCES
A. Wareham, Test Your Brain Power, Ward Lock Ltd (1995).
MATHEMATICA
s={17}; Do[AppendTo[s, Total[Total/@IntegerDigits/@s]], {n, 53}]; s (* James C. McMahon, Oct 25 2024 *)
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
Herman Jamke (hermanjamke(AT)fastmail.fm), Sep 14 2006
STATUS
approved