|
| |
|
|
A101305
|
|
Begin with 0 and at each successive iteration append the next power of 10.
|
|
1
| |
|
|
0, 10, 10100, 101001000, 10100100010000, 10100100010000100000, 101001000100001000001000000, 10100100010000100000100000010000000, 10100100010000100000100000010000000100000000
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
EXAMPLE
| a(1)= 10
a(2)= 10100 (glue 10 and 100)
a(3)= 101001000 (glue 10 with 100 and 1000)
a(4)= 10100100010000
|
|
|
MATHEMATICA
| f[n_] := FromDigits[ Flatten[ Table[ IntegerDigits[10^i], {i, n}]]]; Table[ f[n], {n, 8}] (from Robert G. Wilson v Dec 22 2004)
|
|
|
CROSSREFS
| Cf. A011557.
Sequence in context: A076782 A139109 A119037 * A001098 A086164 A138119
Adjacent sequences: A101302 A101303 A101304 * A101306 A101307 A101308
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jorge Coveiro (jorgecoveiro(AT)yahoo.com), Dec 22 2004
|
|
|
EXTENSIONS
| Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 22 2004
|
| |
|
|
