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

5, 1, 0, 2, 0, 4, 0, 8, 0, 1, 6, 0, 2, 1, 2, 0, 4, 2, 4, 0, 8, 4, 8, 0, 1, 6, 8, 1, 6, 0, 2, 1, 2, 1, 6, 2, 1, 2, 0, 4, 2, 4, 2, 1, 2, 4, 2, 4, 0, 8, 4, 8, 4, 2, 4, 8, 4, 8, 0, 1, 6, 8, 1, 6, 8, 4, 8, 1, 6, 8, 1, 6, 0, 2, 1, 2, 1, 6, 2, 1, 2, 1, 6, 8, 1, 6, 2, 1, 2, 1, 6, 2, 1, 2, 0, 4, 2, 4, 2, 1, 2, 4, 2, 4, 2

Offset

1,1

Links

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

Example

Read a(1)=5 which produces, doing 5*2=10 ["1" & "0"], a(2)=1 & a(3)=0.
Now read a(2)=1 which produces [a(3) is already written] a(4)=2 because 1*2=2.
Now read a(3)=0 which produces [a(4) is already written] a(5)=0 because 0*2=0.

Mathematica

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

Crossrefs

Sequence in context: A102365 A269945 A322013 * A021200 A265301 A019904

Adjacent sequences: A102256 A102257 A102258 * A102260 A102261 A102262

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