|
Search: id:A153216
|
|
|
| A153216 |
|
A triangular sequence of powers ( suppressed powers) : t(n,m)=m^Sum[Floor[n/m^k], {k, 1, Infinity}]. |
|
+0
1
|
|
| 2, 2, 3, 8, 3, 4, 8, 3, 4, 5, 16, 9, 4, 5, 6, 16, 9, 4, 5, 6, 7, 128, 9, 16, 5, 6, 7, 8, 128, 81, 16, 5, 6, 7, 8, 9, 256, 81, 16, 25, 6, 7, 8, 9, 10, 256, 81, 16, 25, 6, 7, 8, 9, 10, 11, 1024, 243, 64, 25, 36, 7, 8, 9, 10, 11, 12
(list; table; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
COMMENT
|
Row sums are:
{2, 5, 15, 20, 40, 47, 179, 260, 418, 429, 1449,...}. I use:
t(n,m)=m^Sum[Floor[n/m^k], {k, 1, 12}];
for the sake of time ( answer is the same at lower powers).
|
|
FORMULA
|
t(n,m)=m^Sum[Floor[n/m^k], {k, 1, Infinity}].
|
|
EXAMPLE
|
{2},
{2, 3},
{8, 3, 4},
{8, 3, 4, 5},
{16, 9, 4, 5, 6},
{16, 9, 4, 5, 6, 7},
{128, 9, 16, 5, 6, 7, 8},
{128, 81, 16, 5, 6, 7, 8, 9},
{256, 81, 16, 25, 6, 7, 8, 9, 10},
{256, 81, 16, 25, 6, 7, 8, 9, 10, 11},
{1024, 243, 64, 25, 36, 7, 8, 9, 10, 11, 12}
|
|
MATHEMATICA
|
Table[Table[m^Sum[Floor[n/m^k], {k, 1, 12}], {m, 2, n}], {n, 2, 12}]
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A139073 A099870 A110985 this_sequence A141611 A145596 A135835
Adjacent sequences: A153213 A153214 A153215 this_sequence A153217 A153218 A153219
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 20 2008
|
|
|
Search completed in 0.002 seconds
|
