cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

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

Original entry on oeis.org

1, 0, 2, 0, 12, 48, 180, 2016, 15120, 72576, 1424304, 11249280, 113164128, 2066238720, 22751977248, 303261573888, 6400216892160, 85934653249536, 1440131337066240, 34330891188013056, 549029461368181248, 11212163885207900160, 296439802585781976576
Offset: 0

Views

Author

Vaclav Kotesovec, Jul 27 2019

Keywords

Comments

In general, if c > 0, mod(d,c) <> 0, mod(d,c) <> 1 and e.g.f. = Product_{k>=1} (1 + x^(c*k+d)/(c*k+d)) / (1 - x^(c*k+d)/(c*k+d)), then a(n) ~ Gamma(1 + (d-1)/c) * n^(2/c - 1) * n! / (c^(2/c) * exp(2*gamma/c) * Gamma(2/c) * Gamma(1 + (d+1)/c)), where gamma is the Euler-Mascheroni constant A001620 and Gamma() is the Gamma function.

Crossrefs

Cf. A305199, A326755, A326857, A326859, A326861.

Programs

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

Formula

a(n) ~ exp(-2*gamma/3) * Gamma(1/3)^2 * n! / (2 * 3^(1/6) * Pi * n^(1/3)), where gamma is the Euler-Mascheroni constant A001620 and Gamma() is the Gamma function.

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

Original entry on oeis.org

1, 0, 0, 4, 0, 0, 160, 1440, 0, 26880, 691200, 7257600, 11827200, 395366400, 14125363200, 185119334400, 442810368000, 24049778688000, 919255538073600, 13662913904640000, 54833495408640000, 3627817738960896000, 142917996623560704000, 2442221696292618240000
Offset: 0

Views

Author

Vaclav Kotesovec, Jul 27 2019

Keywords

Links

Crossrefs

Cf. A326855, A326779.
Cf. A305199, A326859, A326860, A326863.

Programs

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

Formula

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

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

Original entry on oeis.org

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

Views

Author

Vaclav Kotesovec, Jul 27 2019

Keywords

Crossrefs

Cf. A326856, A326780.
Cf. A305199, A326859, A326861, A326862.

Programs

  • 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]!

Formula

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

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.