|
%I #20 Jun 10 2018 01:44:30
%S 1,0,-49221,-5373440,5840692110,1317368987136,-769081921703395,
%T -285861152927176704,99587019847435059600,58472021328782000084480,
%U -11456674101843809483255526,-11455351916487867258761894400,892125673948866841204086469705
%N Coefficients of (q*(j(q)-744))^(-1/4) where j(q) is the elliptic modular invariant.
%H Seiichi Manyama, <a href="/A305696/b305696.txt">Table of n, a(n) for n = 0..377</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/j-Function.html">j-Function</a>
%F G.f.: Product_{k>0} (1 - x^k)^(A302407(k)/4).
%t CoefficientList[Series[((2^16 + x*QPochhammer[-1, x]^24)^3/(2*QPochhammer[-1, x])^24 - 744*x)^(-1/4), {x, 0, 15}], x] (* _Vaclav Kotesovec_, Jun 09 2018 *)
%Y (q*(j(q)-744))^(k/4): A305699 (k=-4), A305698 (k=-2), this sequence (k=-1), A304020 (k=1), A305697 (k=2).
%Y Cf. A000521 (j), A014708 (j-744), A289397, A289416, A302407.
%K sign
%O 0,3
%A _Seiichi Manyama_, Jun 08 2018
|
