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-2 of 2 results.

A370750 a(n) = 9^n * [x^n] Product_{k>=1} ((1 + 2*x^k)/(1 - 2*x^k))^(1/3).

Original entry on oeis.org

1, 12, 180, 3852, 50436, 947052, 14087844, 245858652, 3531115620, 64019229660, 950199749748, 16959724619004, 256888616329044, 4642974930688812, 71716402072904724, 1308491345357401068, 20501966472318764388, 376230182366985289164, 5987314157007778195716, 110286515004790197907836
Offset: 0

Views

Author

Vaclav Kotesovec, Feb 29 2024

Keywords

Crossrefs

Cf. A261584, A303346, A370749.
Cf. A032302, A070933.
Cf. A370716, A370715.

Programs

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

Formula

G.f.: Product_{k>=1} ((1 + 2*(9*x)^k)/(1 - 2*(9*x)^k))^(1/3).
a(n) ~ QPochhammer(-1, 1/2)^(1/3) * 18^n / (Gamma(1/3) * QPochhammer(1/2)^(1/3) * n^(2/3)).

A370752 a(n) = 3^n * [x^n] Product_{k>=1} ((1 + 3*x^k)/(1 - 3*x^k))^(1/3).

Original entry on oeis.org

1, 6, 36, 360, 1998, 18792, 121176, 1123632, 7537860, 72078174, 510702408, 4896308088, 35923749480, 345406994280, 2600934294816, 24985346997888, 191735328374478, 1838307293836560, 14317601666954364, 136953233511162840, 1079293961918593800, 10299943344889922832
Offset: 0

Views

Author

Vaclav Kotesovec, Feb 29 2024

Keywords

Comments

In general, if d > 1, m >= 1 and g.f. = Product_{k>=1} ((1 + d*x^k)/(1 - d*x^k))^(1/m), then a(n) ~ QPochhammer(-1, 1/d)^(1/m) * d^n / (Gamma(1/m) * QPochhammer(1/d)^(1/m) * n^(1 - 1/m)).

Crossrefs

Cf. A303390 (d=3,m=1), A370751 (d=3,m=2), A370752 (d=3,m=3).
Cf. A261584 (d=2,m=1), A303346 (d=2,m=2), A370750 (d=2,m=3), A370749 (d=2,m=4).
Cf. A015128 (d=1,m=1), A303307 (d=1,m=2), A303342 (d=1,m=3).
Cf. A032308, A242587.
Cf. A370712, A370710.

Programs

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

Formula

G.f.: Product_{k>=1} ((1 + 3*(3*x)^k)/(1 - 3*(3*x)^k))^(1/3).
a(n) ~ QPochhammer(-1, 1/3)^(1/3) * 9^n / (Gamma(1/3) * QPochhammer(1/3)^(1/3) * n^(2/3)).
Showing 1-2 of 2 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.