A232487 a(1) = 5; a(n+1) = a(n) + product of nonzero digits of a(n).
5, 10, 11, 12, 14, 18, 26, 38, 62, 74, 102, 104, 108, 116, 122, 126, 138, 162, 174, 202, 206, 218, 234, 258, 338, 410, 414, 430, 442, 474, 586, 826, 922, 958, 1318, 1342, 1366, 1474, 1586, 1826, 1922, 1958, 2318, 2366, 2582, 2742, 2854, 3174, 3258, 3498, 4362
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
- P. A. Loomis, An Introduction to Digit Product Sequences, J. Rec. Math., 32 (2003-2004), 147-151.
- P. A. Loomis, An Introduction to Digit Product Sequences, J. Rec. Math., 32 (2003-2004), 147-151. [Annotated archived copy]
- Index entries for Colombian or self numbers and related sequences
Programs
-
Maple
See A232486.
-
Mathematica
NestList[#+Times@@Select[IntegerDigits[#],#>0&]&,5,50] (* Harvey P. Dale, Jul 07 2020 *)