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

%I #5 Feb 27 2018 10:23:37

%S 4320,40320,210240,604800,1814400,3467520,7862400,13080960,24494400,

%T 35164800,64753920,82293120,135233280,177811200,269625600,320785920,

%U 500346720,563068800,838857600,970905600,1329229440,1477681920,2170022400,2268144000,3085992000

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

%t terms = 25;

%t E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms+1}];

%t E4''[x] + O[x]^terms // CoefficientList[#, x]& (* _Jean-François Alcover_, Feb 27 2018 *)

%Y Cf. A004009, A145346.

%K nonn

%O 0,1

%A _N. J. A. Sloane_, Feb 28 2009