A102253 Begin with 3, multiply each digit by 2.

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

Links

Table of n, a(n) for n=0..92.

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

Adjacent sequences: A102250 A102251 A102252 * A102254 A102255 A102256

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