|
| |
|
|
A102258
|
|
Begin with 5, multiply each digit by 2.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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]] (from Robert G. Wilson v Feb 21 2005)
|
|
|
CROSSREFS
| Sequence in context: A099731 A091306 A073048 * A169841 A084341 A054513
Adjacent sequences: A102255 A102256 A102257 * A102259 A102260 A102261
|
|
|
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
|
| |
|
|
