A102256 Begin with 1, multiply each digit by 2, separate the digits.

1, 2, 4, 8, 1, 6, 2, 1, 2, 4, 2, 4, 8, 4, 8, 1, 6, 8, 1, 6, 2, 1, 2, 1, 6, 2, 1, 2, 4, 2, 4, 2, 1, 2, 4, 2, 4, 8, 4, 8, 4, 2, 4, 8, 4, 8, 1, 6, 8, 1, 6, 8, 4, 8, 1, 6, 8, 1, 6, 2, 1, 2, 1, 6, 2, 1, 2, 1, 6, 8, 1, 6, 2, 1, 2, 1, 6, 2, 1, 2, 4, 2, 4, 2, 1, 2, 4, 2, 4, 2, 1, 2, 1, 6, 2, 1, 2, 4, 2, 4, 2, 1, 2, 4, 2

Offset

1,2

Comments

Same digits as A061581 and A102251 but separating all digits.

Links

Table of n, a(n) for n=1..105.

Example

Read a(4)=8 which produces, doing 8*2=16 ["1" & "6"], a(5)=1 & a(6)=6.
Now read a(5)=1 which produces [a(6) is already written] a(7)=2 because 1*2=2.
Now read a(6)=6 which produces [a(7) is already written] a(8)=1 & a(9)=2 because 6*2=12 ["1" & "2"].

Mathematica

Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[ 2IntegerDigits[ x]]]], 1, 14]] (* Robert G. Wilson v, Feb 21 2005 *)

Crossrefs

Cf. A061581, A102251.

Sequence in context: A210022 A210026 A100880 * A000455 A282821 A317495

Adjacent sequences: A102253 A102254 A102255 * A102257 A102258 A102259

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