OFFSET
0,2
COMMENTS
Never gets above 102.
LINKS
MATHEMATICA
NestList[#+Times@@IntegerDigits[#]&, 1, 50] (* Harvey P. Dale, Jul 30 2023 *)
PROG
(Haskell)
a230102 n = a230102_list !! n
a230102_list = iterate a230099 1 -- Reinhard Zumkeller, Oct 13 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 12 2013
STATUS
approved