|
| |
|
|
A102253
|
|
Begin with 3, multiply each digit by 2.
|
|
0
| |
|
|
3, 6, 12, 2, 4, 4, 8, 8, 16, 16, 2, 12, 2, 12, 4, 2, 4, 4, 2, 4, 8, 4, 8, 8, 4, 8, 16, 8, 16, 16, 8, 16, 2, 12, 16, 2, 12, 2, 12, 16, 2, 12, 4, 2, 4, 2, 12, 4, 2, 4, 4, 2, 4, 2, 12, 4, 2, 4, 8, 4, 8, 4, 2, 4, 8, 4, 8, 8, 4, 8, 4, 2, 4, 8, 4, 8, 16, 8, 16, 8, 4, 8, 16, 8, 16, 16, 8, 16, 8, 4, 8, 16, 8
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
FORMULA
| d*2, beginning with 3
|
|
|
EXAMPLE
| Read a(3)=12 which produces a(4)=2 because 1*2=2 and a(5)=4 because 2*2=4
Now read a(4)=2 which produces [a(5) is already written] a(6)=4 because 2*2=4.
|
|
|
MATHEMATICA
| Flatten[ NestList[ Function[x, Flatten[ FromDigits /@ 2IntegerDigits[ x]]], 3, 14]] (from Robert G. Wilson v Feb 21 2005)
|
|
|
CROSSREFS
| Sequence in context: A079801 A119104 A180483 * A081513 A182633 A038587
Adjacent sequences: A102250 A102251 A102252 * A102254 A102255 A102256
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Alexandre Wajnberg & Eric Angelini (alexandre.wajnberg(AT)ulb.ac.be), Feb 18 2005
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 21 2005
|
| |
|
|
