

A102256


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


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



