A014816 a(n) = Sum_{k=1..n} ceiling(k^4/n).

1, 9, 34, 90, 199, 382, 672, 1100, 1707, 2539, 3640, 5066, 6875, 9128, 11898, 15248, 19265, 24027, 29624, 36144, 43685, 52348, 62242, 73472, 86157, 100423, 116382, 134184, 153943, 175818, 199938, 226456, 255533, 287321, 321992, 359702, 400635, 444964, 492880

Offset

1,2

References

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

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Maple

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

Mathematica

Table[Sum[Ceiling[k^4/n], {k, n}], {n, 40}] (* Harvey P. Dale, Feb 28 2026 *)

Crossrefs

Sequence in context: A279128 A293038 A326278 * A147691 A000441 A067989

Adjacent sequences: A014813 A014814 A014815 * A014817 A014818 A014819

Keyword

nonn

Author

N. J. A. Sloane

Extensions

Title improved by Sean A. Irvine, Nov 21 2018

Status

approved