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

A053268 Coefficients of the '6th-order' mock theta function phi(q).

Original entry on oeis.org

1, -1, 2, -1, 1, -3, 3, -3, 4, -4, 6, -6, 5, -9, 11, -10, 11, -15, 17, -16, 19, -22, 26, -29, 29, -36, 42, -42, 46, -55, 60, -64, 71, -79, 90, -95, 101, -117, 131, -137, 148, -169, 184, -195, 211, -234, 258, -276, 295, -327, 360, -379, 409, -453, 489, -522, 563, -612, 666, -710, 757, -829, 898
Offset: 0

Views

Author

Dean Hickerson, Dec 19 1999

Keywords

References

  • Srinivasa Ramanujan, The Lost Notebook and Other Unpublished Papers, Narosa Publishing House, New Delhi, 1988, pp. 2, 4, 6, 13, 16, 17

Links

Crossrefs

Other '6th-order' mock theta functions are at A053269, A053270, A053271, A053272, A053273, A053274.

Programs

  • Mathematica
    Series[Sum[(-1)^n q^n^2 Product[1-q^k, {k, 1, 2n-1, 2}]/Product[1+q^k, {k, 1, 2n}], {n, 0, 10}], {q, 0, 100}]
nmax = 100; CoefficientList[Series[Sum[(-1)^k * x^(k^2) * Product[1-x^j, {j, 1, 2*k-1, 2}] / Product[1+x^j, {j, 1, 2*k}], {k, 0, Floor[Sqrt[nmax]]}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jun 15 2019 *)

Formula

G.f.: phi(q) = sum for n >= 0 of (-1)^n q^n^2 (1-q)(1-q^3)...(1-q^(2n-1))/((1+q)(1+q^2)...(1+q^(2n))).
a(n) ~ (-1)^n * exp(Pi*sqrt(n/6)) / (2*sqrt(3*n)). - Vaclav Kotesovec, Jun 15 2019

A053269 Coefficients of the '6th-order' mock theta function psi(q).

Original entry on oeis.org

0, 1, -1, 1, -2, 3, -2, 2, -4, 5, -5, 5, -7, 9, -8, 9, -12, 14, -15, 16, -20, 23, -23, 25, -31, 36, -37, 40, -47, 54, -56, 60, -71, 79, -84, 91, -103, 115, -121, 131, -149, 164, -174, 188, -210, 232, -245, 264, -294, 321, -343, 368, -406, 443, -470, 505, -554, 602, -641, 687, -751, 813, -863, 925
Offset: 0

Views

Author

Dean Hickerson, Dec 19 1999

Keywords

References

  • Srinivasa Ramanujan, The Lost Notebook and Other Unpublished Papers, Narosa Publishing House, New Delhi, 1988, pp. 4, 13

Links

Crossrefs

Other '6th-order' mock theta functions are at A053268, A053270, A053271, A053272, A053273, A053274.
Cf. A262614, A263041.

Programs

  • Mathematica
    Series[Sum[(-1)^n q^(n+1)^2 Product[1-q^k, {k, 1, 2n-1, 2}]/Product[1+ q^k, {k, 1, 2n+1}], {n, 0, 9}], {q, 0, 100}]
nmax = 100; CoefficientList[Series[Sum[(-1)^k * x^((k+1)^2) * Product[1-x^j, {j, 1, 2*k-1, 2}]/Product[1+ x^j, {j, 1, 2*k+1}], {k, 0, Floor[Sqrt[nmax]]}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jun 15 2019 *)

Formula

G.f.: psi(q) = Sum_{n >= 0} (-1)^n q^(n+1)^2 (1-q)*(1-q^3)...(1-q^(2n-1)) /((1+q)*(1+q^2)...(1+q^(2n+1))).
a(3*n + 1) = A262614(n). a(3*n + 2) = - A263041(n). - Michael Somos, Apr 17 2016
a(n) ~ -(-1)^n * exp(Pi*sqrt(n/6)) / (2*sqrt(3*n)). - Vaclav Kotesovec, Jun 15 2019

A053270 Coefficients of the '6th-order' mock theta function rho(q).

Original entry on oeis.org

1, 2, 3, 4, 6, 8, 11, 14, 18, 24, 30, 38, 47, 58, 72, 88, 108, 130, 156, 188, 225, 268, 318, 376, 444, 522, 612, 716, 834, 972, 1129, 1308, 1512, 1744, 2010, 2310, 2652, 3038, 3474, 3968, 4524, 5152, 5857, 6650, 7542, 8540, 9660, 10912, 12312, 13878
Offset: 0

Views

Author

Dean Hickerson, Dec 19 1999

Keywords

References

  • Srinivasa Ramanujan, The Lost Notebook and Other Unpublished Papers, Narosa Publishing House, New Delhi, 1988, pp. 3, 13

Links

Crossrefs

Other '6th-order' mock theta functions are at A053268, A053269, A053271, A053272, A053273, A053274.

Programs

  • Mathematica
    Series[Sum[q^(n(n+1)/2) Product[1+q^k, {k, 1, n}]/Product[1-q^k, {k, 1, 2n+1, 2}], {n, 0, 13}], {q, 0, 100}]
nmax = 100; CoefficientList[Series[Sum[x^(k*(k+1)/2) * Product[1+x^j, {j, 1, k}]/Product[1-x^j, {j, 1, 2*k+1, 2}], {k, 0, Floor[Sqrt[2*nmax]]}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jun 12 2019 *)

Formula

G.f.: rho(q) = Sum_{n >= 0} ( q^(n(n+1)/2) *(1+q)*(1+q^2)...(1+q^n)/((1-q)*(1-q^3)...(1-q^(2n+1))) ).
a(n) ~ exp(Pi*sqrt(n/3)) / (2*sqrt(3*n)). - Vaclav Kotesovec, Jun 12 2019

A053274 Coefficients of the '6th-order' mock theta function gamma(q).

Original entry on oeis.org

1, 1, -1, 0, 2, -2, -1, 3, -2, 0, 3, -4, -1, 5, -3, -1, 6, -6, -2, 7, -6, 0, 9, -8, -3, 11, -9, -2, 13, -13, -3, 17, -12, -3, 19, -18, -5, 22, -19, -3, 27, -24, -7, 33, -26, -5, 36, -34, -9, 44, -35, -9, 51, -45, -11, 58, -49, -9, 68, -59, -16, 78, -65, -15, 88, -79, -19, 104, -84, -19, 117, -102, -26, 133, -112, -24, 152, -131
Offset: 0

Views

Author

Dean Hickerson, Dec 19 1999

Keywords

References

  • Srinivasa Ramanujan, The Lost Notebook and Other Unpublished Papers, Narosa Publishing House, New Delhi, 1988, p. 17

Links

Crossrefs

Other '6th-order' mock theta functions are at A053268, A053269, A053270, A053271, A053272, A053273.
Cf. A328988, A328989.

Programs

  • Mathematica
    Series[Sum[q^n^2/Product[1+q^k+q^(2k), {k, 1, n}], {n, 0, 10}], {q, 0, 100}]
  • PARI
    a(n) = polcoeff(sum(k=0, 50, q^(k^2)/prod(j=1, k, 1+q^j+q^(2*j)), q*O(q^n)), n);
for(n=0,50, print1(a(n), ", ")) \\ G. C. Greubel, May 18 2018
  • PARI
    my(N=80, x='x+O('x^N)); Vec(1+1/prod(k=1, N, 1-x^k)*sum(k=1, N, (-1)^(k-1)*x^(k*(3*k-1)/2)*(1+x^k)*(1-x^k)^2/(1+x^k+x^(2*k)))) \\ Seiichi Manyama, May 23 2023

Formula

G.f.: gamma(q) = Sum_{n >= 0} q^n^2/((1+q+q^2)(1+q^2+q^4)...(1+q^n+q^(2n))).
From Seiichi Manyama, May 23 2023: (Start)
a(n) = A328988(n) - A328989(n) for n > 0.
G.f.: 1 + (1/Product_{k>=1} (1-x^k)) * Sum_{k>=1} (-1)^(k-1) * x^(k*(3*k-1)/2) * (1+x^k) * (1-x^k)^2 / (1+x^k+x^(2*k)). (End)

A053271 Coefficients of the '6th-order' mock theta function sigma(q).

Original entry on oeis.org

0, 1, 1, 2, 3, 3, 5, 7, 8, 11, 14, 17, 22, 28, 33, 41, 51, 60, 74, 89, 105, 127, 151, 177, 210, 248, 289, 340, 398, 461, 537, 624, 719, 832, 960, 1101, 1267, 1453, 1660, 1899, 2167, 2465, 2807, 3190, 3614, 4097, 4638, 5237, 5915, 6671, 7507, 8450, 9498
Offset: 0

Views

Author

Dean Hickerson, Dec 19 1999

Keywords

References

  • Srinivasa Ramanujan, The Lost Notebook and Other Unpublished Papers, Narosa Publishing House, New Delhi, 1988, p. 13.

Links

Crossrefs

Other '6th-order' mock theta functions are at A053268, A053269, A053270, A053272, A053273, A053274.

Programs

  • Mathematica
    Series[Sum[q^((n+1)(n+2)/2) Product[1+q^k, {k, 1, n}]/Product[1-q^k, {k, 1, 2n+1, 2}], {n, 0, 12}], {q, 0, 100}]
nmax = 100; CoefficientList[Series[Sum[x^((k+1)*(k+2)/2) * Product[1+x^j, {j, 1, k}]/Product[1-x^j, {j, 1, 2*k+1, 2}], {k, 0, Floor[Sqrt[2*nmax]]}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jun 12 2019 *)

Formula

G.f.: sigma(q) = Sum_{n >= 0} q^((n+1)(n+2)/2) (1+q)(1+q^2)...(1+q^n)/((1-q)(1-q^3)...(1-q^(2n+1))).
a(n) ~ exp(Pi*sqrt(n/3)) / (4*sqrt(3*n)). - Vaclav Kotesovec, Jun 12 2019

A053272 Coefficients of the '6th-order' mock theta function lambda(q).

Original entry on oeis.org

1, -1, 3, -5, 6, -7, 11, -16, 18, -21, 30, -40, 47, -56, 72, -92, 108, -125, 156, -193, 225, -263, 318, -383, 444, -513, 612, -724, 834, -963, 1129, -1320, 1512, -1730, 2010, -2325, 2652, -3022, 3474, -3988, 4524, -5129, 5857, -6673, 7542, -8515, 9660, -10943, 12312, -13842
Offset: 0

Views

Author

Dean Hickerson, Dec 19 1999

Keywords

References

  • Srinivasa Ramanujan, The Lost Notebook and Other Unpublished Papers, Narosa Publishing House, New Delhi, 1988, p. 13

Links

Crossrefs

Other '6th-order' mock theta functions are at A053268, A053269, A053270, A053271, A053273, A053274.

Programs

  • Mathematica
    Series[Sum[(-q)^n Product[1-q^k, {k, 1, 2n-1, 2}]/Product[1+q^k, {k, 1, n}], {n, 0, 100}], {q, 0, 100}]
nmax = 100; CoefficientList[Series[Sum[(-x)^k * Product[1-x^j, {j, 1, 2*k-1, 2}] / Product[1+x^j, {j, 1, k}], {k, 0, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jun 15 2019 *)

Formula

G.f.: lambda(q) = Sum_{n >= 0} (-q)^n (1-q)(1-q^3)...(1-q^(2n-1))/((1+q)(1+q^2)...(1+q^n)).
a(n) ~ (-1)^n * exp(Pi*sqrt(n/3)) / (2*sqrt(3*n)). - Vaclav Kotesovec, Jun 15 2019

A153251 Coefficients of the sixth-order mock theta function phi_{-}(q).

Original entry on oeis.org

0, 1, 3, 5, 8, 14, 22, 33, 51, 74, 105, 151, 210, 289, 398, 537, 719, 960, 1267, 1660, 2167, 2807, 3614, 4638, 5915, 7507, 9498, 11957, 14994, 18744, 23337, 28959, 35834, 44192, 54338, 66643, 81499, 99407, 120969, 146836, 177820
Offset: 0

Views

Author

Jeremy Lovejoy, Dec 21 2008

Keywords

Links

Crossrefs

Cf. A153252.
Other '6th-order' mock theta functions are at A053268, A053269, A053270, A053271, A053272, A053273, A053274.

Programs

  • PARI
    lista(nn) = q = qq + O(qq^nn); gf = sum(n = 1, nn, q^n * prod(k = 1, 2*n-1, 1 + q^k) / prod(k = 1, n, 1 - q^(2*k-1))); concat(0, Vec(gf)) \\ Michel Marcus, Jun 18 2013

Formula

G.f.: Sum_{n >= 1} q^n (1+q)(1+q^2)...(1+q^(2n-1))/((1-q)(1-q^3)...(1-q^(2n-1))).
a(n) ~ exp(Pi*sqrt(2*n/3)) / (2^(5/2)*sqrt(3*n)). - Vaclav Kotesovec, Jun 13 2019

A153252 Coefficients of the sixth-order mock theta function psi_{-}(q).

Original entry on oeis.org

0, 1, 2, 4, 7, 12, 19, 29, 44, 65, 94, 134, 188, 261, 358, 486, 654, 872, 1155, 1519, 1984, 2576, 3325, 4270, 5456, 6939, 8786, 11077, 13912, 17406, 21700, 26961, 33388, 41221, 50739, 62278, 76232, 93067, 113336, 137684, 166873
Offset: 0

Views

Author

Jeremy Lovejoy, Dec 21 2008

Keywords

Links

Crossrefs

Cf. A153251.
Other '6th-order' mock theta functions are at A053268, A053269, A053270, A053271, A053272, A053273, A053274.

Programs

  • PARI
    lista(nn) =  q = qq + O(qq^nn); gf = sum(n = 1, nn, q^n * prod(k = 1, 2*n-2, 1 + q^k) / prod(k = 1, n, 1 - q^(2*k-1))); concat(0, Vec(gf)) \\Michel Marcus, Jun 18 2013

Formula

G.f.: Sum_{n >= 1} q^n(1+q)(1+q^2)...(1+q^(2n-2))/((1-q)(1-q^3)...(1-q^(2n-1))).
a(n) ~ exp(Pi*sqrt(2*n/3)) / (2^(5/2)*sqrt(3*n)). - Vaclav Kotesovec, Jun 13 2019
Showing 1-8 of 8 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.