OFFSET
0,2
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..2000
FORMULA
a(n) ~ 2^n / sqrt(c*Pi*n), where c = A048651 * A083864 = 1/2 * Product_{j>=1} (2^j-1)/(2^j+1) = 0.06056210400129025123042464659093375290492912341... - Vaclav Kotesovec, Apr 22 2018
MATHEMATICA
nmax = 30; CoefficientList[Series[Product[((1 + 2*x^k)/(1 - 2*x^k))^(1/2), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Apr 22 2018 *)
nmax = 30; CoefficientList[Series[Sqrt[-QPochhammer[-2, x] / (3*QPochhammer[2, x])], {x, 0, nmax}], x] (* Vaclav Kotesovec, Apr 22 2018 *)
PROG
(PARI) N=66; x='x+O('x^N); Vec(prod(k=1, N, ((1+2*x^k)/(1-2*x^k))^(1/2)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Apr 22 2018
STATUS
approved