|
%I #13 Feb 27 2018 04:58:01
%S 1,-576,21168,308736,-15034608,-39208320,1590712128,20299281408,
%T 137107250640,665776675008,2599125524640,8637331788288,25350641846208,
%U 67336913702016,164742803455104,376186503674880,809848148403024,1657081821679488,3243133560510576
%N Coefficients in q-expansion of E_2^3*E_6, where E_2 and E_6 are respectively the Eisenstein series A006352 and A013973.
%H Seiichi Manyama, <a href="/A282780/b282780.txt">Table of n, a(n) for n = 0..1000</a>
%t terms = 19;
%t E2[x_] = 1 - 24*Sum[k*x^k/(1 - x^k), {k, 1, terms}];
%t E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, terms}];
%t E2[x]^3*E6[x] + O[x]^terms // CoefficientList[#, x]& (* _Jean-François Alcover_, Feb 27 2018 *)
%Y Cf. A282096 (E_2*E_6), A282595 (E_2^2*E_6), this sequence (E_2^3*E_6).
%K sign
%O 0,2
%A _Seiichi Manyama_, Feb 21 2017
|
