|
Search: id:A102259
|
|
|
| A102259 |
|
Begin with 5, multiply each digit by 2, separate the digits. |
|
+0
1
|
|
| 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; listen)
|
|
|
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: A019755 A085475 A102365 this_sequence A021200 A019904 A002068
Adjacent sequences: A102256 A102257 A102258 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
