%I A063112
%S A063112 1,2,11,12,21,100,101,102,111,112,121,200,202,220,1001,1002,1011,1012,
%T A063112 1021,1100,1101,1102,1111,1112,1121,1200,1202,1220,2001,2010,2012,2100,
%U A063112 2102,2120,2201,2212,10011,10012,10021,10100,10101,10102,10111,10112
%N A063112 a(1) = 1; a(n+1) = a(n) + product of nonzero digits of a(n) when written 
               in base 3. Display sequence in base 3.
%H A063112 Harry J. Smith, <a href="b063112.txt">Table of n, a(n) for n=1,...,1000</
               a>
%H A063112 P. A. Loomis, <a href="http://facstaff.bloomu.edu/ploomis/sequences.html">
               An Interesting Family of Iterated Sequences</a>
%o A063112 (PARI) baseE(x, b)= { local(d, e, f); e=0; f=1; while (x>0, d=x-b*(x\b); 
               x\=b; e+=d*f; f*=10); return(e) } ProdNzD(x)= { local(d, p); p=1; 
               while (x>9, d=x-10*(x\10); if (d, p*=d); x\=10); return(p*x) } { 
               for (n=1, 1000, if (n>1, a=baseE(b+= ProdNzD(a), 3), a=1; b=1); write("b063112.txt", 
               n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), 
               Aug 19 2009]
%Y A063112 Cf. A063108, A063113, A063114.
%Y A063112 Sequence in context: A136407 A136999 A053880 this_sequence A038113 A089600 
               A114034
%Y A063112 Adjacent sequences: A063109 A063110 A063111 this_sequence A063113 A063114 
               A063115
%K A063112 nonn,base
%O A063112 1,2
%A A063112 N. J. A. Sloane (njas(AT)research.att.com), Aug 08 2001
%E A063112 More terms from Vladeta Jovovic (vladeta(AT)eunet.rs), Aug 10 2001