A290009 Coefficients in expansion of 691*E_4*E_8*E_12.

691, 563040, 305307360, 131729109120, 34085393629920, 4587384326495040, 302027782271806080, 10484303481804821760, 226150164335242994400, 3395290157453914541280, 38308806132696980919360, 343030311387007824977280, 2537869275676057371269760

Offset: 0

Author

Seiichi Manyama, Jul 17 2017

Keywords

• nonn

Links

• Seiichi Manyama, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A004009 (E_4), A008410 (E_8), A008411 (E_4^3), A029828 (691*E_12).

Cf. A290010.

Programs

Mathematica

terms = 13;
E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms}];
E12[x_] = 1 + (65520/691)*Sum[k^11*x^k/(1 - x^k), {k, 1, terms}];
691*E4[x]^3*E12[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)

Formula

G.f.: 691*E_4^3*E_12.