A303361 Expansion of Product_{n>=1} ((1 + (4*x)^n)/(1 - (4*x)^n))^(1/4).

1, 2, 10, 60, 262, 1372, 7044, 32760, 153670, 789676, 3659820, 17109320, 83073180, 381273240, 1786996424, 8604391920, 38832248902, 179714213580, 845485079580, 3834271942440, 17666638985652, 81920437065288, 370224975781560, 1685489994025360

Offset

0,2

Links

Seiichi Manyama, Table of n, a(n) for n = 0..1000

Formula

a(n) ~ 2^(2*n - 5/2) * exp(sqrt(n)*Pi/2) / n^(13/16). - 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 + x^k)/(1 - x^k))^(1/4), {k, 1, nmax}], {x, 0, nmax}], x] * 4^Range[0, nmax] (* 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), A303307 (b=1), this sequence (b=2).

Cf. A303360.

Sequence in context: A095993 A029725 A246480 * A026161 A025188 A114620

Adjacent sequences: A303358 A303359 A303360 * A303362 A303363 A303364

Keyword

nonn

Author

Seiichi Manyama, Apr 22 2018

Status

approved