|
Search: id:A109436
|
|
|
| A109436 |
|
Evolution of 2^n into 2^(n-1)(n+2) as exhibited by A109435. |
|
+0
3
|
|
| 0, 0, 1, 1, 2, 3, 4, 7, 8, 8, 15, 19, 20, 16, 31, 43, 47, 48, 32, 63, 94, 107, 111, 112, 64, 127, 201, 238, 251, 255, 256, 128, 255, 423, 520, 558, 571, 575, 576, 256, 511, 880, 1121, 1224, 1262, 1275, 1279, 1280, 512, 1023, 1815, 2391, 2656, 2760, 2798, 2811
(list; table; graph; listen)
|
|
|
OFFSET
|
0,5
|
|
|
COMMENT
|
The forward difference of the last row of the table {1, 4, 13, 38, 104, ...} approaches A084851. Also A084851(n)-A058396(n)=A084851(n-1).
|
|
EXAMPLE
|
Triangle begins:
0 0
1 1
2 3
4 7 8
8 15 19 20
16 31 43 47 48
32 63 94 107 111 112
|
|
MAPLE
|
T[n_, m_] := Length[ Select[ StringPosition[ #, StringDrop[ ToString[10^m], 1]] & /@ Table[ ToString[ FromDigits[ IntegerDigits[i, 2]]], {i, 2^n, 2^(n + 1) - 1}], # != {} &]]; Flatten[ Table[ T[n + i, i], {n, 0, 9}, {i, 0, n}]]
|
|
CROSSREFS
|
Cf. A109435, A001792, A109434, A084851.
Adjacent sequences: A109433 A109434 A109435 this_sequence A109437 A109438 A109439
Sequence in context: A064554 A054426 A054424 this_sequence A039254 A039195 A039146
|
|
KEYWORD
|
base,nonn,tabl,uned,obsc
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 28 2005
|
|
|
Search completed in 0.002 seconds
|
