|
%I #40 Jun 10 2018 01:44:35
%S 1,0,49221,5373440,-3417985269,-788396806656,342234419865236,
%T 132462307415526912,-36238724753334630039,-22802599804762047656960,
%U 3430044089325166785294348,3917150794938668128412249088,-180732068045239143713224620097
%N Coefficients of (q*(j(q)-744))^(1/4) where j(q) is the elliptic modular invariant.
%H Seiichi Manyama, <a href="/A304020/b304020.txt">Table of n, a(n) for n = 0..378</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), A305696 (k=-1), this sequence (k=1), A305697 (k=2).
%Y Cf. A000521 (j), A014708 (j-744), A106203, A106205, A302407.
%K sign
%O 0,3
%A _Seiichi Manyama_, Jun 08 2018
|
