login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A332469 a(n) = Sum_{k=1..n} floor(n/k)^n. 2
1, 5, 29, 274, 3160, 47452, 825862, 16843268, 387702833, 10009826727, 285360679985, 8918294547447, 302888236005847, 11112685321898449, 437898668488710801, 18447025705612363530, 827242514466399305122, 39346558271561286347116, 1978421007121668206129316 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..19.

FORMULA

a(n) = [x^n] (1/(1 - x)) * Sum_{k>=1} (k^n - (k - 1)^n) * x^k / (1 - x^k).

MATHEMATICA

Table[Sum[Floor[n/k]^n, {k, 1, n}], {n, 1, 19}]

Table[SeriesCoefficient[1/(1 - x) Sum[(k^n - (k - 1)^n) x^k/(1 - x^k), {k, 1, n}], {x, 0, n}], {n, 1, 19}]

PROG

(PARI) a(n)={sum(k=1, n, floor(n/k)^n)} \\ Andrew Howroyd, Feb 13 2020

(MAGMA) [&+[Floor(n/k)^n:k in [1..n]]:n in [1..20]]; // Marius A. Burtea, Feb 13 2020

CROSSREFS

Cf. A006218, A222548, A318742, A318743, A318744, A319194, A332468.

Sequence in context: A177440 A292567 A332517 * A112799 A020531 A195228

Adjacent sequences:  A332466 A332467 A332468 * A332470 A332471 A332472

KEYWORD

nonn

AUTHOR

Ilya Gutkovskiy, Feb 13 2020

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 13 04:54 EDT 2020. Contains 336442 sequences. (Running on oeis4.)