OFFSET
1,1
FORMULA
Apply the rule "d*2", beginning with 5
EXAMPLE
Read a(5)=80 which produces a(6)=160 because 8*2=16 and 0*2=0.
Now read a(6)=160 which produces a(7)=2120 because 1*2=2, 6*2=12 and 0*2=0.
Read a(10)=168160 which produces the digits of a(11)=212162 AND the first three digits of a(12)=1204242 because 1*2=2, 6*2=12, 8*2=16, 1*2=2 AND 6*2=12 and 0*2=0
MATHEMATICA
Flatten[ NestList[ Function[x, FromDigits[ Flatten[ IntegerDigits[2IntegerDigits[ x]]] ]], 5, 16]] (* Robert G. Wilson v, Feb 21 2005 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Alexandre Wajnberg and Eric Angelini, Feb 19 2005
EXTENSIONS
More terms from Robert G. Wilson v, Feb 21 2005
Edited by N. J. A. Sloane, Sep 06 2008 at the suggestion of R. J. Mathar
STATUS
approved