|
%I #11 Apr 25 2018 06:50:43
%S 1,-2,0,-2,6,-6,4,-6,48,-118,96,-78,470,-810,396,-3050,11062,-12678,
%T 7072,-21454,80034,-201490,218940,-200658,1536724,-3268842,2079312,
%U -7013266,23140282,-28227510,24133668,-56293910,288065712,-704485126,629862288,-1176210654
%N Expansion of Product_{k>=1} ((1 - 2^k*x^k)/(1 + 2^k*x^k))^(1/2^k).
%H Seiichi Manyama, <a href="/A303439/b303439.txt">Table of n, a(n) for n = 0..3000</a>
%t nmax = 30; CoefficientList[Series[Exp[Sum[(1 - (-1)^j) / (j*(1 - 1/(2^(j-1)*x^j))), {j, 1, nmax}]], {x, 0, nmax}], x] (* _Vaclav Kotesovec_, Apr 25 2018 *)
%o (PARI) N=66; x='x+O('x^N); Vec(prod(k=1, N, ((1-2^k*x^k)/(1+2^k*x^k))^(1/2^k)))
%Y Cf. A303345, A303387, A303396, A303438.
%K sign
%O 0,2
%A _Seiichi Manyama_, Apr 24 2018
|
