OFFSET
1,2
EXAMPLE
Read a(4)=8 which produces, doing 8*2=16 ["1" & "6"], a(5)=1 & a(6)=6.
Now read a(5)=1 which produces [a(6) is already written] a(7)=2 because 1*2=2.
Now read a(6)=6 which produces [a(7) is already written] a(8)=1 & a(9)=2 because 6*2=12 ["1" & "2"].
MATHEMATICA
Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[ 2IntegerDigits[ x]]]], 1, 14]] (* 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
STATUS
approved