%I #15 Jul 07 2020 13:44:31
%S 5,10,11,12,14,18,26,38,62,74,102,104,108,116,122,126,138,162,174,202,
%T 206,218,234,258,338,410,414,430,442,474,586,826,922,958,1318,1342,
%U 1366,1474,1586,1826,1922,1958,2318,2366,2582,2742,2854,3174,3258,3498,4362
%N a(1) = 5; a(n+1) = a(n) + product of nonzero digits of a(n).
%H Harvey P. Dale, <a href="/A232487/b232487.txt">Table of n, a(n) for n = 1..1000</a>
%H P. A. Loomis, <a href="http://facstaff.bloomu.edu/ploomis/itseq4.ps">An Introduction to Digit Product Sequences</a>, J. Rec. Math., 32 (2003-2004), 147-151.
%H P. A. Loomis, <a href="/A063108/a063108.pdf">An Introduction to Digit Product Sequences</a>, J. Rec. Math., 32 (2003-2004), 147-151. [Annotated archived copy]
%H <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>
%p See A232486.
%t NestList[#+Times@@Select[IntegerDigits[#],#>0&]&,5,50] (* _Harvey P. Dale_, Jul 07 2020 *)
%Y Cf. A063108, A232486, A232488.
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Nov 29 2013