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.

A369520 Expansion of Product_{k>=1} 1/((1 - x^(k^2))*(1 - x^k)).

Original entry on oeis.org

1, 2, 4, 7, 13, 21, 34, 52, 80, 119, 175, 251, 359, 504, 702, 965, 1320, 1785, 2401, 3200, 4245, 5589, 7324, 9535, 12364, 15944, 20478, 26175, 33338, 42279, 53438, 67283, 84454, 105642, 131764, 163826, 203149, 251185, 309799, 381079, 467666, 572520, 699342, 852314
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 25 2024

Keywords

Comments

Convolution of A001156 and A000041.
a(n) is the number of pairs (Q(k), P(n-k)), 0<=k<=n, where Q(k) is a partition of k into squares and P(n-k) is a partition of n-k.

Links

Crossrefs

Cf. A000041, A001156, A087153, A264393, A280204, A369519, A369579.

Programs

  • Mathematica
    nmax=50; CoefficientList[Series[Product[1/(1-x^(k^2))/(1-x^k), {k, 1, nmax}], {x, 0, nmax}], x]

Formula

a(n) ~ exp(Pi*sqrt(2*n/3) + 3^(1/4)*zeta(3/2)*n^(1/4)/2^(3/4) - 3*zeta(3/2)^2/(32*Pi)) / (2^(13/4) * 3^(3/4) * sqrt(Pi) * n^(5/4)).

A369579 Expansion of Product_{k>=1} 1 / ((1 - x^k) * (1 - x^(k^3))).

Original entry on oeis.org

1, 2, 4, 7, 12, 19, 30, 45, 68, 99, 143, 202, 284, 392, 538, 729, 983, 1311, 1740, 2289, 2998, 3898, 5046, 6492, 8321, 10607, 13472, 17032, 21460, 26927, 33682, 41975, 52160, 64600, 79790, 98255, 120690, 147836, 180662, 220217, 267841, 324999, 393539, 475496, 573403
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 26 2024

Keywords

Comments

Convolution of A000041 and A003108.
a(n) is the number of pairs (Q(k), P(n-k)), 0<=k<=n, where Q(k) is a partition of k and P(n-k) is a partition of n-k into cubes.

Links

Crossrefs

Cf. A000041, A001156, A003108, A280278, A369519, A369520.

Programs

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

Formula

a(n) ~ exp(Pi*sqrt(2*n/3) + 6^(1/6) * Gamma(4/3) * zeta(4/3) * n^(1/6) / Pi^(1/3)) / (2^(15/4) * 3^(3/4) * Pi * n^(5/4)) * (1 - Gamma(1/3)^2 * zeta(4/3)^2 / (54 * 6^(1/6) * Pi^(5/3) * n^(1/6))).

A369576 Expansion of Product_{k>=1} 1 / ((1 - x^k) * (1 - x^(k^2)) * (1 - x^(k^3))).

Original entry on oeis.org

1, 3, 7, 14, 27, 48, 82, 134, 215, 336, 515, 773, 1145, 1670, 2406, 3423, 4824, 6730, 9310, 12768, 17385, 23499, 31559, 42111, 55876, 73726, 96784, 126418, 164375, 212772, 274277, 352125, 450365, 573891, 728765, 922305, 1163530, 1463287, 1834842, 2294128, 2860538
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 26 2024

Keywords

Comments

Convolution of A000041 and A001156 and A003108.
Convolution of A369520 and A003108.
a(n) is the number of triples (R(r), S(s), T(t)) where r + s + t = n, and R(k) is a partition of k, S(k) a partition of k into squares, and T(k) a partition of k into cubes.

Links

Crossrefs

Cf. A000041, A001156, A003108, A369519, A369520, A369579.

Programs

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

Formula

a(n) ~ exp(Pi*sqrt(2*n/3) + 3^(1/4) * zeta(3/2) * n^(1/4) / 2^(3/4) + 6^(1/6) * Gamma(4/3) * zeta(4/3) * n^(1/6) / Pi^(1/3) - 3*zeta(3/2)^2 / (32*Pi)) / (96 * Pi^(3/2) * n^(3/2)) * (1 - Gamma(1/3) * zeta(4/3) * zeta(3/2) / (12 * 6^(1/12) * Pi^(4/3) * n^(1/12))).
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.