OFFSET
1,2
COMMENTS
Same digits as A061581.
FORMULA
d*2, beginning with 1.
EXAMPLE
Read a(5)=16, which produces first digit of a(6)=2 because 1*2=2 and second digit of a(6)=1 and first digit of a(7)=2 because 6*2=12.
MATHEMATICA
t = Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[2IntegerDigits[ x]]]], 1, 17]]; a = 0; l = {}; Do[k = 1; While[fd = FromDigits[ Take[t, k]]; a >= fd, k++ ]; t = Drop[t, k]; AppendTo[l, fd]; a = fd, {n, 27}]; l (* Robert G. Wilson v, Feb 21 2005 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Alexandre Wajnberg and Eric Angelini, Feb 18 2005
EXTENSIONS
More terms from Robert G. Wilson v, Feb 21 2005
STATUS
approved