login
A303360
Expansion of Product_{n>=1} ((1 + 4*x^n)/(1 - 4*x^n))^(1/4).
6
1, 2, 4, 18, 34, 166, 384, 1902, 4756, 24022, 64284, 321542, 899658, 4455690, 12888944, 63185250, 187513426, 910880550, 2759413788, 13295839638, 40967821494, 195979968882, 612569599440, 2911592648458, 9213101043936, 43538337410474, 139246245625364
OFFSET
0,2
LINKS
FORMULA
a(n) ~ c * 4^n / n^(3/4), where c = (QPochhammer[-1, 1/4] / QPochhammer[1/4])^(1/4) / Gamma(1/4) = 0.3885547372628... - Vaclav Kotesovec, Apr 23 2018
MAPLE
seq(coeff(series(mul(((1+4*x^k)/(1-4*x^k))^(1/4), k = 1..n), x, n+1), x, n), n = 0..35); # Muniru A Asiru, Apr 22 2018
MATHEMATICA
nmax = 30; CoefficientList[Series[Product[((1 + 4*x^k)/(1 - 4*x^k))^(1/4), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Apr 22 2018 *)
nmax = 30; CoefficientList[Series[(-3*QPochhammer[-4, x] / (5*QPochhammer[4, x]))^(1/4), {x, 0, nmax}], x] (* Vaclav Kotesovec, Apr 23 2018 *)
PROG
(PARI) N=66; x='x+O('x^N); Vec(prod(k=1, N, ((1+4*x^k)/(1-4*x^k))^(1/4)))
CROSSREFS
Expansion of Product_{n>=1} ((1 + 2^b*x^n)/(1 - 2^b*x^n))^(1/(2^b)): A015128 (b=0), A303346 (b=1), this sequence (b=2).
Sequence in context: A357998 A220586 A054300 * A303442 A063101 A343529
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Apr 22 2018
STATUS
approved