A326863 E.g.f.: Product_{k>=1} (1 + x^(4*k-3)/(4*k-3)) / (1 - x^(4*k-3)/(4*k-3)).

1, 2, 4, 12, 48, 288, 2016, 14112, 112896, 1096704, 12063744, 135894528, 1630734336, 22157549568, 331366920192, 5107664314368, 82057393668096, 1436821272133632, 27168078863794176, 528845513033908224, 10627947138360803328, 228216184936879620096, 5219125284175176794112

Offset

0,2

Links

Table of n, a(n) for n=0..22.

Formula

a(n) ~ 4 * exp(-gamma/2) * sqrt(n) * n! / Pi, where gamma is the Euler-Mascheroni constant A001620.

Mathematica

nmax = 30; CoefficientList[Series[Product[(1+x^(4*k-3)/(4*k-3))/(1-x^(4*k-3)/(4*k-3)), {k, 1, Floor[nmax/4]+1}], {x, 0, nmax}], x] * Range[0, nmax]!

Crossrefs

Cf. A326856, A326780.

Cf. A305199, A326859, A326861, A326862.

Sequence in context: A030888 A030801 A263867 * A082480 A093934 A109458

Adjacent sequences: A326860 A326861 A326862 * A326864 A326865 A326866

Keyword

nonn

Author

Vaclav Kotesovec, Jul 27 2019

Status

approved