This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A232488 #10 Jun 13 2015 14:36:37 %S A232488 7,14,18,26,38,62,74,102,104,108,116,122,126,138,162,174,202,206,218, %T A232488 234,258,338,410,414,430,442,474,586,826,922,958,1318,1342,1366,1474, %U A232488 1586,1826,1922,1958,2318,2366,2582,2742,2854,3174,3258,3498,4362,4506,4626,4914 %N A232488 a(1) = 7; a(n+1) = a(n) + product of nonzero digits of a(n). %H A232488 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 A232488 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 A232488 <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a> %p A232488 See A232486. %t A232488 nxt[n_]:=n+Times@@Select[IntegerDigits[n],#!=0&]; NestList[nxt,7,50] (* _Harvey P. Dale_, Jun 13 2015 *) %Y A232488 Cf. A063108, A232486, A232488. %K A232488 nonn,base %O A232488 1,1 %A A232488 _N. J. A. Sloane_, Nov 29 2013