|
| |
|
|
A102259
|
|
Begin with 5, multiply each digit by 2, separate the digits.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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]] (from Robert G. Wilson v Feb 21 2005)
|
|
|
CROSSREFS
| Sequence in context: A085475 A157012 A102365 * A021200 A019904 A002068
Adjacent sequences: A102256 A102257 A102258 * A102260 A102261 A102262
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Alexandre Wajnberg & Eric Angelini (alexandre.wajnberg(AT)ulb.ac.be), Feb 19 2005
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 21 2005
|
| |
|
|
