%I #12 Apr 25 2018 07:16:43
%S 1,2,4,18,34,166,544,2222,5396,29622,101276,411206,1170986,5435466,
%T 20007472,90854146,253956882,1160301990,4412414972,18080729238,
%U 56012061494,275783908498,1010620487696,4103148863306,12730394683264,58227896627114,223877604671508
%N Expansion of Product_{k>=1} ((1 + 4^k*x^k)/(1 - 4^k*x^k))^(1/4^k).
%H Seiichi Manyama, <a href="/A303442/b303442.txt">Table of n, a(n) for n = 0..1000</a>
%t nmax = 30; CoefficientList[Series[Exp[Sum[((-1)^j - 1) / (j*(1 - 1/(4^(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+4^k*x^k)/(1-4^k*x^k))^(1/4^k)))
%Y Cf. A303361, A303438, A303443.
%K nonn
%O 0,2
%A _Seiichi Manyama_, Apr 24 2018