%I #56 Feb 26 2018 17:24:11
%S 1723168255201,-171864,-92268782591832,-11795091175438423776,
%T -49536425459206569762648,-32012164592742919922046864,
%U -6332441368275869747902027488,-553385882817076320573218661312,-26594665913504249904864455466840
%N Eisenstein series E_30(q) (alternate convention E_15(q)), multiplied by 1723168255201.
%H Seiichi Manyama, <a href="/A282182/b282182.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = 815806500201*A282382(n) + 881340705000*A282461(n) + 26021050000*A282433(n).
%t terms = 9;
%t E30[x_] = 1723168255201 - 171864*Sum[k^29*x^k/(1 - x^k), {k, 1, terms}];
%t E30[x] + O[x]^terms // CoefficientList[#, x]& (* _Jean-François Alcover_, Feb 26 2018 *)
%Y Cf. A006352 (E_2), A004009 (E_4), A013973 (E_6), A008410 (E_8), A013974 (E_10), A029828 (691*E_12), A058550 (E_14), A029829 (3617*E_16), A279892 (43867*E_18), A029830 (174611*E_20), A279893 (77683*E_22), A029831 (236364091*E_24), A282356 (657931*E_26), A282401 (3392780147*E_28), this sequence (1723168255201*E_30).
%Y Cf. A282382 (E_4^6*E_6), A282461 (E_4^3*E_6^3), A282433 (E_6^5).
%K sign
%O 0,1
%A _Seiichi Manyama_, Feb 16 2017
|