login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A153216 A triangular sequence of powers ( suppressed powers) : t(n,m)=m^Sum[Floor[n/m^k], {k, 1, Infinity}]. 0
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; refs; listen; history; text; internal format)
OFFSET

2,1

COMMENTS

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).

LINKS

Table of n, a(n) for n=2..67.

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: A099870 A221877 A110985 * A327259 A295943 A296804

Adjacent sequences:  A153213 A153214 A153215 * A153217 A153218 A153219

KEYWORD

nonn,tabl

AUTHOR

Roger L. Bagula, Dec 20 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 3 13:16 EDT 2022. Contains 357237 sequences. (Running on oeis4.)