This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A014819 #14 Sep 08 2022 08:44:39
%S A014819 1,8,32,88,195,377,666,1096,1701,2530,3630,5056,6863,9115,11884,15240,
%T A014819 19249,24012,29606,36126,43665,52327,62220,73452,86137,100398,116364,
%U A014819 134158,153915,175789,199908,226432,255501,287288,321958,359672,400599,444927,492842
%N A014819 a(n) = Sum_{k=1..n} floor(k^4/n).
%D A014819 M. Eichler and D. Zagier, The Theory of Jacobi Forms, Birkhauser, 1985, p. 103.
%H A014819 G. C. Greubel, <a href="/A014819/b014819.txt">Table of n, a(n) for n = 1..1000</a>
%p A014819 f := m-> add( floor((nu)^4/m), nu=0..m): seq(f(n), n=1..40);
%t A014819 Table[Sum[Floor[k^4/n], {k, 1, n}], {n, 1, 40}] (* _G. C. Greubel_, Nov 21 2018 *)
%o A014819 (PARI) vector(40, n, sum(k=1,n, floor(k^4/n))) \\ _G. C. Greubel_, Nov 21 2018
%o A014819 (Magma) [(&+[Floor(k^4/n): k in [1..n]]): n in [1..40]]; // _G. C. Greubel_, Nov 21 2018
%o A014819 (Sage) [sum(floor(k^4/n) for k in (1..n)) for n in (1..40)] # _G. C. Greubel_, Nov 21 2018
%Y A014819 Cf. A014817, A014818.
%K A014819 nonn
%O A014819 1,2
%A A014819 _N. J. A. Sloane_
%E A014819 Title improved by _Sean A. Irvine_, Nov 21 2018