login
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.
4
1, -1032, 244872, 11293536, -12738264, -6174312624, -106952602464, -1012788556608, -6677393391000, -34223823782376, -145162615601232, -530968614112224, -1722312703896288, -5059890748287984, -13673195356609728, -34406230066992576, -81397361282611992
OFFSET
0,2
LINKS
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 *)
CROSSREFS
Cf. A006352 (E_2), A013973 (E_6), A282096 (E_2*E_6).
Sequence in context: A224428 A283724 A168225 * A122716 A031609 A236804
KEYWORD
sign
AUTHOR
Seiichi Manyama, Feb 18 2017
STATUS
approved