A102258 Begin with 5, multiply each digit by 2.

5, 10, 2, 0, 4, 0, 8, 0, 16, 0, 2, 12, 0, 4, 2, 4, 0, 8, 4, 8, 0, 16, 8, 16, 0, 2, 12, 16, 2, 12, 0, 4, 2, 4, 2, 12, 4, 2, 4, 0, 8, 4, 8, 4, 2, 4, 8, 4, 8, 0, 16, 8, 16, 8, 4, 8, 16, 8, 16, 0, 2, 12, 16, 2, 12, 16, 8, 16, 2, 12, 16, 2, 12, 0, 4, 2, 4, 2, 12, 4, 2, 4, 2, 12, 16, 2, 12, 4, 2, 4, 2, 12, 4

Offset

1,1

Links

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

Formula

d*2, beginning with 5

Example

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

Mathematica

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

Crossrefs

Sequence in context: A307716 A091306 A073048 * A361672 A169841 A084341

Adjacent sequences: A102255 A102256 A102257 * A102259 A102260 A102261

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