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-10 of 11 results. Next

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

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

A053273 Coefficients of the '6th-order' mock theta function 2 mu(q).

Original entry on oeis.org

1, 2, -3, 4, -4, 6, -11, 14, -15, 22, -31, 34, -41, 56, -69, 82, -98, 120, -152, 178, -204, 254, -308, 354, -415, 496, -587, 680, -785, 922, -1084, 1248, -1427, 1664, -1935, 2202, -2517, 2906, -3336, 3798, -4315, 4930, -5636, 6380, -7202, 8194, -9305, 10474, -11801, 13342, -15050
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, A053272, A053274.

Programs

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

Formula

G.f.: 2 mu(q) = 1 + Sum_{n >= 0} (-1)^n q^(n+1) (1+q^n) (1-q)(1-q^3)...(1-q^(2n-1))/((1+q)(1+q^2)...(1+q^(n+1))).
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

A262614 Expansion of phi(-x^3) * f(-x, -x^5) / psi(x) in powers of x where phi(), psi(), f(, ) are Ramanujan theta functions.

Original entry on oeis.org

1, -2, 2, -5, 9, -12, 16, -23, 36, -47, 60, -84, 115, -149, 188, -245, 321, -406, 505, -641, 813, -1007, 1237, -1533, 1901, -2321, 2816, -3437, 4191, -5055, 6068, -7307, 8792, -10501, 12490, -14886, 17720, -20975, 24755, -29236, 34492, -40522, 47486, -55666
Offset: 0

Views

Author

Michael Somos, Apr 17 2016

Keywords

Comments

Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).

Examples

			G.f. = 1 - 2*x + 2*x^2 - 5*x^3 + 9*x^4 - 12*x^5 + 16*x^6 - 23*x^7 +
G.f. = q^5 - 2*q^29 + 2*q^53 - 5*q^77 + 9*q^101 - 12*q^125 + 16*q^149 - 23*q^173 + ...

Links

Crossrefs

Cf. A053269.

Programs

  • Mathematica
    a[ n_] := SeriesCoefficient[ 2 x^(1/8) QPochhammer[ x^3]^3 QPochhammer[ x, x^2] / (EllipticTheta[ 4, 0, x^3] EllipticTheta[ 2, 0, x^(1/2)]), {x, 0, n}];
  • PARI
    {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x + A)^2 * eta(x^3 + A) * eta(x^6 + A) / eta(x^2 + A)^3, n))};

Formula

Expansion of f(-x^3)^3 / (f(x, x^2) * psi(x)) in powers of x where psi(), f(, ) are Ramanujan theta functions.
Expansion of q^(-5/24) * eta(q)^2 * eta(q^3) * eta(q^6) / eta(q^2)^3 in powers of q.
Euler transform of period 6 sequence [ -2, 1, -3, 1, -2, -1, ...].
a(n) = A053269(3*n + 1).
a(n) ~ (-1)^n * exp(sqrt(n/2)*Pi) / (6*sqrt(n)). - Vaclav Kotesovec, Apr 17 2016

A263041 Expansion of f(-x, -x^5)^2 / f(x, x^3) in powers of x where f(, ) is Ramanujan's general theta function.

Original entry on oeis.org

1, -3, 4, -5, 8, -14, 20, -25, 37, -54, 71, -91, 121, -164, 210, -264, 343, -443, 554, -687, 863, -1087, 1340, -1637, 2021, -2489, 3027, -3659, 4442, -5391, 6480, -7755, 9306, -11153, 13278, -15752, 18711, -22203, 26214, -30860, 36354, -42777, 50137, -58628
Offset: 0

Views

Author

Michael Somos, Apr 17 2016

Keywords

Comments

Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).

Examples

			G.f. = 1 - 3*x + 4*x^2 - 5*x^3 + 8*x^4 - 14*x^5 + 20*x^6 - 25*x^7 + 37*x^8 + ...
G.f. = q^13 - 3*q^37 + 4*q^61 - 5*q^85 + 8*q^109 - 14*q^133 + 20*q^157 - 25*q^181 + ...

Links

Crossrefs

Cf. A053269.

Programs

  • Mathematica
    a[ n_] := SeriesCoefficient[ x^(-1/2) QPochhammer[ x] (EllipticTheta[ 2, 0, x^(3/2)] / EllipticTheta[ 2, 0, x^(1/2)])^2, {x, 0, n}];
  • PARI
    {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x + A)^3 * eta(x^6 + A)^4 / (eta(x^2 + A)^4 * eta(x^3 + A)^2), n))};

Formula

Expansion of f(-x)^3 * psi(x^3)^2 / f(-x^2)^4 in powers of x where psi(), f() are Ramanujan theta functions.
Expansion of q^(-13/24) * eta(q)^3 * eta(q^6)^4 / (eta(q^2)^4 * eta(q^3)^2) in powers of q.
Euler transform of period 6 sequence [ -3, 1, -1, 1, -3, -1, ...].
a(n) = - A053269(3*n + 2).
a(n) ~ (-1)^n * exp(sqrt(n/2)*Pi) / (6*sqrt(n)). - Vaclav Kotesovec, Apr 17 2016

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-10 of 11 results. Next

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

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