A145312 Coefficients in expansion of E''_4(q), where E_4 is the Eisenstein series in A004009.

4320, 40320, 210240, 604800, 1814400, 3467520, 7862400, 13080960, 24494400, 35164800, 64753920, 82293120, 135233280, 177811200, 269625600, 320785920, 500346720, 563068800, 838857600, 970905600, 1329229440, 1477681920, 2170022400, 2268144000, 3085992000

Offset: 0

Author

N. J. A. Sloane, Feb 28 2009

Keywords

• nonn

Crossrefs

Cf. A004009, A145346.

Programs

Mathematica

terms = 25;
E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms+1}];
E4''[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 27 2018 *)