A230102 a(0)=1; thereafter a(n+1) = a(n) + (product of digits of a(n)).

1, 2, 4, 8, 16, 22, 26, 38, 62, 74, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102

Offset: 0

Author

N. J. A. Sloane, Oct 12 2013

Keywords

• nonn
• base

Comments

Never gets above 102.

Links

• Index entries for Colombian or self numbers and related sequences
• Index entries for linear recurrences with constant coefficients, signature (1).

Crossrefs

Cf. A007954, A051801, A063108, A230099, A232485.

Programs

Haskell

a230102 n = a230102_list !! n
a230102_list = iterate a230099 1  -- Reinhard Zumkeller, Oct 13 2013

Mathematica

NestList[#+Times@@IntegerDigits[#]&,1,50] (* Harvey P. Dale, Jul 30 2023 *)