OFFSET
0,1
REFERENCES
N. Koblitz, Introduction to Elliptic Curves and Modular Forms, Springer-Verlag, 1984, see p. 111.
J.-P. Serre, Course in Arithmetic, Chap. VII, Section 4.
LINKS
FORMULA
MAPLE
E := proc(k) local n, t1; t1 := 1-(2*k/bernoulli(k))*add(sigma[k-1](n)*q^n, n=1..60); series(t1, q, 60); end; E(16);
MATHEMATICA
terms = 12;
E16[x_] = 3617 + 16320*Sum[k^15*x^k/(1 - x^k), {k, 1, terms}];
E16[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 27 2018 *)
PROG
(PARI) a(n)=if(n<1, 3617*(n==0), 16320*sigma(n, 15))
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved