login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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. 4
1, 2, 11, 12, 21, 100, 101, 102, 111, 112, 121, 200, 202, 220, 1001, 1002, 1011, 1012, 1021, 1100, 1101, 1102, 1111, 1112, 1121, 1200, 1202, 1220, 2001, 2010, 2012, 2100, 2102, 2120, 2201, 2212, 10011, 10012, 10021, 10100, 10101, 10102, 10111, 10112 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
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]
PROG
(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) ) } \\ Harry J. Smith, Aug 19 2009
CROSSREFS
Sequence in context: A136999 A271372 A053880 * A038113 A089600 A114034
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Aug 08 2001
EXTENSIONS
More terms from Vladeta Jovovic, Aug 10 2001
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 11:59 EDT 2024. Contains 371254 sequences. (Running on oeis4.)