A282576 Coefficients in q-expansion of E_2*E_6^2, where E_2 and E_6 are respectively the Eisenstein series A006352 and A013973.

1, -1032, 244872, 11293536, -12738264, -6174312624, -106952602464, -1012788556608, -6677393391000, -34223823782376, -145162615601232, -530968614112224, -1722312703896288, -5059890748287984, -13673195356609728, -34406230066992576, -81397361282611992

Offset: 0

Author

Seiichi Manyama, Feb 18 2017

Keywords

• sign

Links

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

Crossrefs

Cf. A006352 (E_2), A013973 (E_6), A282096 (E_2*E_6).

Programs

Mathematica

terms = 17;
E2[x_] = 1 - 24*Sum[k*x^k/(1 - x^k), {k, 1, terms}];
E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, terms}];
E2[x]*E6[x]^2 + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 27 2018 *)