|
Search: id:A102256
|
|
|
| A102256 |
|
Begin with 1, multiply each digit by 2, separate the digits. |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Same digits as A061581 and A102251 but separating all digits.
|
|
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]] (from Robert G. Wilson v Feb 21 2005)
|
|
CROSSREFS
|
Cf. A061581, A102251.
Sequence in context: A021407 A131609 A100880 this_sequence A000455 A097888 A030275
Adjacent sequences: A102253 A102254 A102255 this_sequence A102257 A102258 A102259
|
|
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
|
