[go: up one dir, main page]

login
A102253
Begin with 3, multiply each digit by 2.
0
3, 6, 12, 2, 4, 4, 8, 8, 16, 16, 2, 12, 2, 12, 4, 2, 4, 4, 2, 4, 8, 4, 8, 8, 4, 8, 16, 8, 16, 16, 8, 16, 2, 12, 16, 2, 12, 2, 12, 16, 2, 12, 4, 2, 4, 2, 12, 4, 2, 4, 4, 2, 4, 2, 12, 4, 2, 4, 8, 4, 8, 4, 2, 4, 8, 4, 8, 8, 4, 8, 4, 2, 4, 8, 4, 8, 16, 8, 16, 8, 4, 8, 16, 8, 16, 16, 8, 16, 8, 4, 8, 16, 8
OFFSET
0,1
FORMULA
d*2, beginning with 3.
EXAMPLE
Read a(3)=12 which produces a(4)=2 because 1*2=2 and a(5)=4 because 2*2=4
Now read a(4)=2 which produces [a(5) is already written] a(6)=4 because 2*2=4.
MATHEMATICA
Flatten[ NestList[ Function[x, Flatten[ FromDigits /@ 2IntegerDigits[ x]]], 3, 14]] (* Robert G. Wilson v, Feb 21 2005 *)
CROSSREFS
Sequence in context: A348409 A348254 A356221 * A359799 A246210 A302784
KEYWORD
base,easy,nonn
AUTHOR
EXTENSIONS
More terms from Robert G. Wilson v, Feb 21 2005
STATUS
approved