OFFSET
1,1
FORMULA
d*2, beginning with 3.
EXAMPLE
Read a(3)=12 which produces a(4)=24 because 1*2=2 and 2*2=4.
MATHEMATICA
Flatten[ NestList[ Function[x, FromDigits[ Flatten[ IntegerDigits[2IntegerDigits[ x]]] ]], 3, 15]] (* 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