OFFSET
1,1
FORMULA
d*2, beginning with 5
EXAMPLE
Read a(2)=10 which produces a(3)=2 & a(4)=0 because 1*2=2 and 0*2=0
Now read a(3)=2 which produces [a(4) is already written] a(5)=4 because 2*2=4.
MATHEMATICA
Flatten[ NestList[ Function[x, Flatten[FromDigits /@ 2IntegerDigits[x]]], 5, 15]] (* 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