A014813 a(n) = Sum_{k=0..n} ceiling(k^3/n).

1, 5, 13, 26, 47, 76, 115, 164, 228, 307, 401, 512, 643, 794, 967, 1162, 1385, 1632, 1909, 2214, 2551, 2920, 3323, 3760, 4235, 4751, 5301, 5900, 6539, 7222, 7951, 8724, 9553, 10429, 11357, 12336, 13375, 14468, 15619, 16828, 18101, 19435, 20833, 22296, 23826

Offset

1,2

References

M. Eichler and D. Zagier, The Theory of Jacobi Forms, Birkhauser, 1985, p. 103.

Links

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

Maple

f := m->add( ceil(nu^3/m), nu=0..m): seq(f(m), m=1..45);

Mathematica

Table[Sum[Ceiling[k^3/n], {k, 0, n}], {n, 50}] (* Harvey P. Dale, May 05 2019 *)

Prog

(Magma) [&+[Ceiling(k^3/n): k in [0..n]]: n in [1..60]]; // Vincenzo Librandi, May 31 2019

Crossrefs

Sequence in context: A299259 A008778 A299277 * A180671 A211637 A256111

Adjacent sequences: A014810 A014811 A014812 * A014814 A014815 A014816

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

Title improved by Sean A. Irvine, Nov 21 2018

Status

approved