OFFSET
1,2
REFERENCES
M. Eichler and D. Zagier, The Theory of Jacobi Forms, Birkhauser, 1985, p. 103.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MAPLE
f := m-> add( floor((nu)^4/m), nu=0..m): seq(f(n), n=1..40);
MATHEMATICA
Table[Sum[Floor[k^4/n], {k, 1, n}], {n, 1, 40}] (* G. C. Greubel, Nov 21 2018 *)
PROG
(PARI) vector(40, n, sum(k=1, n, floor(k^4/n))) \\ G. C. Greubel, Nov 21 2018
(Magma) [(&+[Floor(k^4/n): k in [1..n]]): n in [1..40]]; // G. C. Greubel, Nov 21 2018
(Sage) [sum(floor(k^4/n) for k in (1..n)) for n in (1..40)] # G. C. Greubel, Nov 21 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Title improved by Sean A. Irvine, Nov 21 2018
STATUS
approved