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

A190615 Expansion of f(x^2) * f(x^3) / (chi(x) * chi(x^6)) in powers of x where f(), chi() are Ramanujan theta functions.

Original entry on oeis.org

1, -1, 2, -2, 1, -2, 0, -2, 0, 0, 2, 0, 3, -1, 2, -2, 2, -4, 0, 0, 0, 0, 2, 0, 3, 0, 2, -4, 0, -2, 0, -2, 0, 0, 0, 0, 2, -3, 4, -2, 1, -2, 0, -2, 0, 0, 2, 0, 2, -2, 2, -2, 4, -2, 0, 0, 0, 0, 0, 0, 3, 0, 4, -2, 0, -2, 0, -2, 0, 0, 0, 0, 4, -3, 2, -2, 0, -4, 0
Offset: 0

Views

Author

Michael Somos, May 14 2011

Keywords

Comments

Number 63 of the 74 eta-quotients listed in Table I of Martin (1996).
Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).

Examples

			G.f. = 1 - x + 2*x^2 - 2*x^3 + x^4 - 2*x^5 - 2*x^7 + 2*x^10 + 3*x^12 - x^13 + ...
G.f. = q - q^3 + 2*q^5 - 2*q^7 + q^9 - 2*q^11 - 2*q^15 + 2*q^21 + 3*q^25 + ...

Links

Crossrefs

Cf. A113700, A128580, A128583, A128591, A129402, A134177, A257920, A259895, A259896, A260089, A260110, A260118, A260308.

Programs

  • Mathematica
    a[ n_] := If[ n < 0, 0, (-1)^n DivisorSum[ 2 n + 1, KroneckerSymbol[ -6, #] &]]; (* Michael Somos, Jun 09 2015 *)
a[ n_] := SeriesCoefficient[ (EllipticTheta[ 4, 0, x^3] EllipticTheta[ 2, 0, x^2] - EllipticTheta[ 4, 0, x] EllipticTheta[ 2, 0, x^6]) / (2 x^(1/2)), {x, 0, n}]; (* Michael Somos, Jun 09 2015 *)
a[ n_] := SeriesCoefficient[ QPochhammer[ -x^2] QPochhammer[ -x^3] / (QPochhammer[ -x, x^2] QPochhammer[ -x^6, x^12]), {x, 0, n}]; (* Michael Somos, Jun 09 2015 *)
  • PARI
    {a(n) = if( n<0, 0, (-1)^n * sumdiv( 2*n + 1, d, kronecker( -6, d)))};
  • PARI
    {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x + A) * eta(x^4 + A)^4 * eta(x^6 + A)^4 * eta(x^24 + A) / (eta(x^2 + A)^3 * eta(x^3 + A) * eta(x^8 + A) * eta(x^12 + A)^3), n))};
  • PARI
    {a(n) = my(A, p, e); if( n<0, 0, A = factor(2*n + 1); prod(k=1, matsize(A)[1], [p, e] = A[k, ]; if( p==2, 0, p==3, (-1)^e, p%24 < 12, (e+1) * if( p%24 < 6, 1, (-1)^e), (1 + (-1)^e) / 2 )))};

Formula

Expansion of phi(-x^3) * psi(x^4) - x * phi(-x) * psi(x^12) in powers of x where phi(), psi() are Ramanujan theta functions.
Expansion of q^(-1/2) * eta(q) * eta(q^4)^4 * eta(q^6)^4 * eta(q^24) / (eta(q^2)^3 * eta(q^3) * eta(q^8) * eta(q^12)^3) in powers of q.
a(n) = b(2*n + 1) where b() is multiplicative with b(2^e) = 0^e, b(3^e) = (-1)^e, b(p^e) = e+1 if p == 1, 5 (mod 24), b(p^e) = (-1)^e * (e+1) if p == 7, 11 (mod 24), b(p^e) = (1 + (-1)^e)/2 if p == 13, 17, 19, 23 (mod 24).
Euler transform of period 24 sequence [ -1, 2, 0, -2, -1, -1, -1, -1, 0, 2, -1, -2, -1, 2, 0, -1, -1, -1, -1, -2, 0, 2, -1, -2, ...].
G.f. is a period 1 Fourier series which satisfies f(-1 / (96 t)) = 96^(1/2) (t/i) f(t) where q = exp(2 Pi i t).
G.f.: Sum_{k>0} Kronecker( 6, k) * q^k / (1 + q^(2*k)) = Sum_{k>=0} a(k) * q^(2*k + 1).
G.f.: Product_{k>0} (1 + (-x)^k) * (1 - (-x^2)^k) * (1 - (-x^3)^k) * (1 + (-x^6)^k).
a(n) = (-1)^n * A129402(n). a(3*n + 1) = -a(n). a(12*n + 6) = a(12*n + 8) = a(12*n + 9) = a(12*n + 11) = 0.
a(12*n) = A113700(n). a(12*n + 2) = 2 * A128583(n). a(12*n + 5) = -2 * A128591(n). - Michael Somos, Jun 09 2015
a(n) = (-1)^floor(n/2) * A128580(n) = (-1)^(n + floor(n/2)) * A134177(n). - Michael Somos, Jul 29 2015
a(3*n) = A260110(n). a(3*n + 2) = 2 * A260118(n). - Michael Somos, Jul 29 2015
a(4*n) = A260308(n). a(4*n + 1) = - A257920(n). a(4*n + 2) = 2 * A259895(n). a(4*n + 3) = -2 * A259896(n). - Michael Somos, Jul 29 2015
a(12*n + 3) = -2 * A260089(n). - Michael Somos, Jul 29 2015

A113780 Number of solutions to 24*n+1 = x^2+24*y^2, x a positive integer, y an integer.

Original entry on oeis.org

1, 3, 3, 2, 2, 3, 4, 1, 2, 4, 2, 4, 1, 2, 2, 1, 8, 2, 2, 2, 0, 4, 1, 4, 2, 2, 5, 4, 2, 0, 4, 4, 2, 0, 0, 3, 4, 4, 4, 2, 3, 4, 2, 2, 4, 0, 0, 2, 2, 4, 2, 9, 2, 0, 2, 2, 4, 1, 4, 0, 4, 4, 2, 0, 4, 4, 4, 2, 0, 2, 1, 8, 0, 2, 2, 2, 6, 1, 2, 4, 0, 4, 4, 2, 2, 0, 8, 2, 2, 2, 2, 0, 1, 8, 0, 2, 4, 0, 0, 2, 5, 6, 4, 2, 4
Offset: 0

Views

Author

Christian G. Bower, Jan 20 2006, based on a message from Dean Hickerson

Keywords

Comments

If 24*n+1 is not a square or if sqrt(24*n+1) == 1 or 11 (mod 12), then A000009(n) == a(n) (mod 4), otherwise A000009(n) == a(n) + 2 (mod 4).
Implied by the arithmetic of Q[sqrt(-6)]: Let 24*n+1 = p_1^e_1 * ... * p_r^e_r * q_1^f_1 * ... * q_s^f_s, where the p_i's are distinct primes == 1, 5, 7, or 11 (mod 24) and the q_i's are distinct primes == 13, 17, 19, or 23 (mod 24). If some f_i is odd, then a(n) = 0. Otherwise, a(n) = (e_1 + 1) * ... * (e_r + 1). a(n) == 2 (mod 4) iff all of the f_i's are even and all but one of the e_i's are even and the one e_i which is odd is == 1 (mod 4). Since A000009(n) and a(n) are both odd if 24*n+1 is a square, we can replace a by A000009 in this.
Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).

Examples

			If n=51, the solutions (x,y) are: (7,+-7), (19,+-6), (25,+-5), (29,+-4), (35,0) so a(51)=9.
G.f. = 1 + 3*x + 3*x^2 + 2*x^3 + 2*x^4 + 3*x^5 + 4*x^6 + x^7 + 2*x^8 + 4*x^9 + ...
G.f. = q + 3*q^25 + 3*q^49 + 2*q^73 + 2*q^97 + 3*q^121 + 4*q^145 + q^169 + 2*q^193 + ...

Links

Crossrefs

Cf. A001318 generalized pentagonal numbers, indices of odd values of a(n) and A000009.
Cf. A114913 = values k such that A000009(k) == 2 (mod 4) and such that a(k) == 2 (mod 4).
Cf. A128580, A129402, A134177, A190615.

Programs

  • Mathematica
    a[ n_] := If[ n < 0, 0, With[{m = 24 n + 1}, Sum[ KroneckerSymbol[ -12, d] KroneckerSymbol[ 2, m/d], {d, Divisors @ m}]]]; (* Michael Somos, Jun 08 2013 *)
a[ n_] := SeriesCoefficient[ EllipticTheta[ 4, 0, x^3] EllipticTheta[ 3, 0, x] / QPochhammer[ x, x^2], {x, 0, n}]; (* Michael Somos, Jun 08 2013 *)
  • PARI
    {a(n) = if( n<0, 0, n = 24*n + 1; sumdiv( n, d, kronecker( -12, d) * kronecker( 2, n/d)))}; /* Michael Somos, Mar 11 2007 */
  • PARI
    {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^2 + A)^6 * eta(x^3 + A)^2 / (eta(x + A)^3 * eta(x^4 + A)^2 * eta(x^6 + A)), n))}; /* Michael Somos, Jun 08 2012 */

Formula

Expansion of phi(x) * phi(-x^3) / chi(-x) in powers of x where phi(), chi() are Ramanujan theta functions. - Michael Somos, Jun 08 2012
Expansion of f(x, x) * f(x, x^2) in powers of x where f(, ) is Ramanujan's general theta function. - Michael Somos, Jun 08 2013
Expansion of eta(q^2)^6 * eta(q^3)^2 / (eta(q)^3 * eta(q^4)^2 * eta(q^6)) in powers of q. - Michael Somos, Jun 08 2012
Euler transform of period 12 sequence [ 3, -3, 1, -1, 3, -4, 3, -1, 1, -3, 3, -2, ...]. - Michael Somos, Jun 08 2012
a(n) = A128580(12*n) = A129402(12*n) = A134177(12*n) = A190615(12*n). - Michael Somos, Jun 08 2012

A259668 Expansion of psi(-x)^2 * psi(x^3)^2 / (phi(-x^4) * psi(-x^6)) in power of x where phi(), psi() are Ramanujan theta functions.

Original entry on oeis.org

1, -2, 1, 0, 0, -2, 3, -2, 2, 0, 0, -2, 3, -2, 0, 0, 0, 0, 2, -4, 1, 0, 0, -2, 2, -2, 4, 0, 0, 0, 3, -4, 0, 0, 0, 0, 4, -2, 0, 0, 0, -4, 1, -2, 2, 0, 0, -2, 2, -2, 0, 0, 0, 0, 4, 0, 3, 0, 0, -2, 2, -6, 2, 0, 0, -2, 4, -2, 0, 0, 0, 0, 1, -2, 2, 0, 0, -2, 2, -2
Offset: 0

Views

Author

Michael Somos, Jul 02 2015

Keywords

Comments

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

Examples

			G.f. = 1 - 2*x + x^2 - 2*x^5 + 3*x^6 - 2*x^7 + 2*x^8 - 2*x^11 + 3*x^12 + ...
G.f. = q - 2*q^5 + q^9 - 2*q^21 + 3*q^25 - 2*q^29 + 2*q^33 - 2*q^45 + ...

Links

Crossrefs

Cf. A113780, A115660, A128580, A128581, A134177.

Programs

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

Formula

Expansion of f(-x^8) * f(-x, -x^5)^2 / psi(-x^6) in powers of x where psi(), f() are Ramanujan theta functions.
Euler transform of period 24 sequence [ -2, 0, 0, 0, -2, -1, -2, -1, 0, 0, -2, -2, -2, 0, 0, -1, -2, -1, -2, 0, 0, 0, -2, -2, ...].
a(n) = A128580(2*n) = A134177(2*n) = A115660(4*n) = A128581(4*n).
a(6*n + 1) = -2 * A113780(n).

A257920 Expansion of phi(x) * psi(x^3) in powers of x where phi(), psi() are Ramanujan theta functions.

Original entry on oeis.org

1, 2, 0, 1, 4, 0, 0, 2, 0, 3, 2, 0, 2, 2, 0, 0, 2, 0, 3, 4, 0, 0, 2, 0, 0, 4, 0, 2, 2, 0, 1, 2, 0, 0, 6, 0, 2, 0, 0, 4, 0, 0, 0, 2, 0, 3, 4, 0, 0, 4, 0, 0, 2, 0, 4, 2, 0, 0, 2, 0, 0, 2, 0, 1, 4, 0, 2, 6, 0, 0, 2, 0, 2, 2, 0, 0, 0, 0, 0, 4, 0, 4, 2, 0, 3, 2, 0
Offset: 0

Views

Author

Michael Somos, Jul 12 2015

Keywords

Comments

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

Examples

			G.f. = 1 + 2*x + x^3 + 4*x^4 + 2*x^7 + 3*x^9 + 2*x^10 + 2*x^12 + 2*x^13 + ...
G.f. = q^3 + 2*q^11 + q^27 + 4*q^35 + 2*q^59 + 3*q^75 + 2*q^83 + 2*q^99 + ...

Links

Crossrefs

Cf. A000377, A128591, A129402, A134177, A192013.

Programs

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

Formula

Expansion of q^(-3/8) * eta(q^2)^5 * eta(q^6)^2 / (eta(q)^2 * eta(q^3) * eta(q^4)^2) in powers of q.
Euler transform of period 12 sequence [ 2, -3, 3, -1, 2, -4, 2, -1, 3, -3, 2, -2, ...].
a(n) = A129402(4*n + 1) = A134177(4*n + 1) = A000377(8*n + 3) = A192013(8*n + 3).
a(3*n + 2) = 0. a(3*n + 1) = 2 * A128591(n).

A259895 Expansion of psi(x^2) * psi(x^3) in powers of x where psi() is a Ramanujan theta function.

Original entry on oeis.org

1, 0, 1, 1, 0, 1, 1, 0, 0, 2, 0, 1, 1, 0, 0, 2, 0, 0, 1, 0, 2, 1, 0, 1, 1, 0, 0, 0, 0, 1, 3, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 2, 0, 0, 2, 0, 1, 1, 0, 1, 2, 0, 0, 0, 0, 1, 1, 0, 1, 2, 0, 0, 1, 0, 3, 0, 0, 0, 1, 0, 0, 2, 0, 1, 3, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 2
Offset: 0

Views

Author

Michael Somos, Jul 07 2015

Keywords

Comments

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

Examples

			G.f. = 1 + x^2 + x^3 + x^5 + x^6 + 2*x^9 + x^11 + x^12 + 2*x^15 + x^18 + ...
G.f. = q^5 + q^21 + q^29 + q^45 + q^53 + 2*q^77 + q^93 + q^101 + 2*q^125 + ...

Links

Crossrefs

Cf. A000377, A128580, A128583, A129402, A134177, A190615, A192013, A257921, A259668, A259896.

Programs

  • Mathematica
    a[ n_] := SeriesCoefficient[ EllipticTheta[ 2, 0, x] EllipticTheta[ 2, 0, x^(3/2)] / (4 q^(5/8)), {x, 0, n}];
a[ n_] := If[ n < 0, 0, 1/2 Sum[ KroneckerSymbol[ -6, d], {d, Divisors[8 n + 5]}]]; (* Michael Somos, Jul 22 2015 *)
  • PARI
    {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^4 + A)^2 * eta(x^6 + A)^2 / (eta(x^2 + A) * eta(x^3 + A)), n))};
  • PARI
    {a(n) = if( n<0, 0, 1/2 * sumdiv( 8*n + 5, d, kronecker( -6, d)))};

Formula

Expansion of q^(-5/8) * eta(q^4)^2 * eta(q^6)^2 / (eta(q^2) * eta(q^3)) in powers of q.
Euler transform of period 12 sequence [ 0, 1, 1, -1, 0, 0, 0, -1, 1, 1, 0, -2, ...].
a(n) = A259896(3*n + 1). a(3*n) = A128583(n). a(3*n + 1) = a(9*n + 8) = 0.
2 * a(n) = A129402(4*n + 2) = A190615(4*n + 2) = A000377(8*n + 5) = A192013(8*n + 5). - Michael Somos, Jul 22 2015
-2 * a(n) = A259668(2*n + 1) = A128580(4*n + 2) = A134177(4*n + 2) = A257921(6*n + 3). - Michael Somos, Jul 22 2015
a(3*n + 2) = A259896(n). - Michael Somos, Jul 22 2015

A260308 Expansion of psi(x) * phi(x^3) in powers of x where phi(), psi() are Ramanujan theta functions.

Original entry on oeis.org

1, 1, 0, 3, 2, 0, 3, 0, 0, 2, 1, 0, 2, 4, 0, 3, 0, 0, 4, 0, 0, 1, 2, 0, 2, 0, 0, 4, 3, 0, 2, 2, 0, 4, 0, 0, 1, 2, 0, 2, 2, 0, 2, 0, 0, 1, 0, 0, 8, 2, 0, 2, 0, 0, 2, 3, 0, 2, 4, 0, 0, 0, 0, 4, 0, 0, 1, 2, 0, 4, 0, 0, 2, 0, 0, 2, 4, 0, 5, 0, 0, 4, 2, 0, 2, 2, 0
Offset: 0

Views

Author

Michael Somos, Jul 22 2015

Keywords

Comments

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

Examples

			G.f. = 1 + x + 3*x^3 + 2*x^4 + 3*x^6 + 2*x^9 + x^10 + 2*x^12 + 4*x^13 + ...
G.f. = q + q^9 + 3*q^25 + 2*q^33 + 3*q^49 + 2*q^73 + q^81 + 2*q^97 + ...

Links

Crossrefs

Cf. A115660, A128580, A128581, A129402, A134177, A190615, A192013, A259668.

Programs

  • Mathematica
    a[ n_] := If[ n < 0, 0, DivisorSum[ 8 n + 1, KroneckerSymbol[ -6, #] &]];
a[ n_] := If[ n < 0, 0, Times @@ (Which[ # <= 3, Mod[#, 2], Mod[#, 24] > 12, 1 - Mod[#2, 2], True, (#2  + 1) KroneckerSymbol[ 3, #]^#2] & @@@ FactorInteger @ (8 n + 1))];
a[ n_] := SeriesCoefficient[ EllipticTheta[ 3, 0, x^3] EllipticTheta[ 2, 0, x^(1/2)] / (2 x^(1/8)), {x, 0, n}];
  • PARI
    {a(n) = if( n<0, 0, sumdiv( 8*n + 1, d, kronecker( -6, d)))};
  • PARI
    {a(n) = my(A, p, e); if( n<0, 0, factor(8*n + 1); prod( k=1, matsize(A)[1], [p, e] = A[k, ]; if( p==2, 0, p==3, 1, p%24>12, !(e%2), (e+1) * kronecker(3, p)^e)))};
  • PARI
    {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^2 + A)^2 * eta(x^6 + A)^5 / (eta(x + A) * eta(x^3 + A)^2 * eta(x^12 + A)^2), n))};

Formula

Expansion of q^(-1/8) * eta(q^2)^2 * eta(q^6)^5 / (eta(q) * eta(q^3)^2 * eta(q^12)^2) in powers of q.
Euler transform of period 12 sequence [ 1, -1, 3, -1, 1, -4, 1, -1, 3, -1, 1, -2, ...].
a(n) = A259668(2*n) = A128580(4*n) = A129402(4*n) = A134177(4*n) = A190615(4*n) = A115660(8*n + 1) = A128581(8*n + 1) = A192013(8*n + 1).

A257921 Expansion of f(x^2, -x^4) * f(-x, -x^5)^2 / f(-x^12, -x^12) in powers of x where f(, ) is Ramanujan's general theta functions.

Original entry on oeis.org

1, -2, 2, -2, 0, 0, 1, -2, 4, 0, 0, 0, 0, -4, 2, -2, 0, 0, 3, -2, 2, -2, 0, 0, 2, -2, 2, 0, 0, 0, 0, -2, 2, -2, 0, 0, 3, -2, 4, -2, 0, 0, 0, -6, 2, 0, 0, 0, 0, -2, 4, 0, 0, 0, 2, -2, 2, -4, 0, 0, 1, 0, 2, 0, 0, 0, 0, -2, 6, -2, 0, 0, 2, -4, 0, -2, 0, 0, 4, -4
Offset: 0

Views

Author

Michael Somos, Jul 12 2015

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 - 2*x^3 + x^6 - 2*x^7 + 4*x^8 - 4*x^13 + 2*x^14 + ...
G.f. = q^3 - 2*q^7 + 2*q^11 - 2*q^15 + q^27 - 2*q^31 + 4*q^35 - 4*q^55 + ...

Links

Crossrefs

Cf. A115660, A128580, A128591, A134177, A257920, A259668, A259896, A261119.

Programs

  • Mathematica
    a[ n_] := If[ n < 0, 0, With[ {m = 4 n + 3}, DivisorSum[ m, KroneckerSymbol[ 12, #] KroneckerSymbol[ -2, m/#] &]]];
a[ n_] := SeriesCoefficient[ (EllipticTheta[ 2, Pi/4, x^(1/2)] EllipticTheta[ 2, 0, x^(3/2)])^2 / (2^(5/2) x^(3/4) EllipticTheta[ 2, Pi/4, x] EllipticTheta[ 4, 0, x^12]), {x, 0, n};
  • PARI
    {a(n) = if( n<0, 0, n = 4*n + 3; sumdiv(n, d, kronecker( 12, d) * kronecker( -2, n/d)))};
  • PARI
    {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x + A)^2 * eta(x^4 + A)^3 * eta(x^6 + A)^4 * eta(x^24 + A) / (eta(x^2 + A)^3 * eta(x^3 + A)^2 *eta(x^8 + A) * eta(x^12 + A)^2), n))};

Formula

Expansion of psi(-x)^2 * psi(x^3)^2 / (psi(-x^2) * phi(-x^12)) in powers of x where phi(), psi() are Ramanujan theta functions.
Expansion of q^(-3/4) * eta(q)^2 * eta(q^4)^3 * eta(q^6)^4 * eta(q^24) / (eta(q^2)^3 * eta(q^3)^2 *eta(q^8) * eta(q^12)^2) in powers of q.
Euler transform of period 24 sequence [ -2, 1, 0, -2, -2, -1, -2, -1, 0, 1, -2, -2, -2, 1, 0, -1, -2, -1, -2, -2, 0, 1, -2, -2, ...].
a(n) = b(4*n + 3) where b() is multiplicative with b(2^e) = 0^e, b(3^e) = 1, b(p^e) = e+1 if p == 1, 11 (mod 24), b(p^e) = (e+1) * (-1)^e if p == 5, 7 (mod 24), b(p^e) = (1 + (-1)^e) / 2 if p == 13, 17, 19, 23 (mod 24).
a(n) = (-1)^n * A261119(n) = A134177(2*n + 1) = - A128580(2*n + 1) = - A115660(4*n+3).
a(6*n + 4) = a(6*n + 5) = 0.
a(2*n) = A257920(n). a(2*n + 1) = -2 * A259896(n). a(3*n) = A259668(n). a(6*n + 2) = 2 * A128591(n).

A260110 Expansion of f(-x, -x) * f(x^4, x^8) in powers of x where f(,) is Ramanujan's general theta function.

Original entry on oeis.org

1, -2, 0, 0, 3, -2, 0, 0, 3, -4, 0, 0, 2, -2, 0, 0, 2, -2, 0, 0, 3, -2, 0, 0, 4, -2, 0, 0, 1, -6, 0, 0, 2, -2, 0, 0, 4, -2, 0, 0, 2, 0, 0, 0, 4, -2, 0, 0, 1, -4, 0, 0, 2, -4, 0, 0, 2, -4, 0, 0, 1, -2, 0, 0, 8, 0, 0, 0, 2, -4, 0, 0, 2, -2, 0, 0, 2, -2, 0, 0, 0
Offset: 0

Views

Author

Michael Somos, Jul 16 2015

Keywords

Comments

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

Examples

			G.f. = 1 - 2*x + 3*x^4 - 2*x^5 + 3*x^8 - 4*x^9 + 2*x^12 - 2*x^13 + 2*x^16 + ...
G.f. = q - 2*q^7 + 3*q^25 - 2*q^31 + 3*q^49 - 4*q^55 + 2*q^73 - 2*q^79 + ...

Links

Crossrefs

Cf. A134177, A190615, A229723, A260089.

Programs

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

Formula

Expansion of q^(-1/6) * eta(q)^2 * eta(q^8) * eta(q^12)^2 / (eta(q^2) * eta(q^4) * eta(q^24)) in powers of q.
Euler transform of period 24 sequence [ -2, -1, -2, 0, -2, -1, -2, -1, -2, -1, -2, -2, -2, -1, -2, -1, -2, -1, -2, 0, -2, -1, -2, -2, ...].
a(n) = A134177(3*n) = A190615(3*n) = A229723(6*n + 1). a(4*n + 2) = a(4*n + 3) = 0. a(4*n) = A113780(n). a(4*n + 1) = -2 * A260089(n).

A260118 Expansion of f(-x, -x^5) * psi(x^4) in powers of x where psi(), f() are Ramanujan theta functions.

Original entry on oeis.org

1, -1, 0, 0, 1, -2, 0, 0, 1, -1, 0, 0, 2, -1, 0, 0, 1, -1, 0, 0, 2, -1, 0, 0, 1, -2, 0, 0, 1, -1, 0, 0, 1, -2, 0, 0, 0, -1, 0, 0, 3, -1, 0, 0, 1, -3, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 2, -1, 0, 0, 2, -2, 0, 0, 1, -2, 0, 0, 2, -1, 0, 0, 0, -1, 0, 0, 1, -1, 0, 0, 2
Offset: 0

Views

Author

Michael Somos, Jul 16 2015

Keywords

Comments

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

Examples

			G.f. = 1 - x + x^4 - 2*x^5 + x^8 - x^9 + 2*x^12 - x^13 + x^16 - x^17 + ...
G.f. = q^5 - q^11 + q^29 - 2*q^35 + q^53 - q^59 + 2*q^77 - q^83 + q^101 + ...

Links

Crossrefs

Cf. A128538, A128582, A128591, A134177, A190615.

Programs

  • Mathematica
    a[ n_] := SeriesCoefficient[ EllipticTheta[ 2, Pi/4, x]^2 EllipticTheta[ 2, 0, x^(3/2)]/(4 x^(7/8) QPochhammer[ -x]), {x, 0, n}];
a[ n_] := If[ n < 0, 0, With[ {m = 6 n + 5}, (-1)^n DivisorSum[ m, {-1, 0, 0, 0, 1, 0}[[Mod[#, 6, 1]]] {1, 0, 0, 0, 0, 0, 1, 0}[[Mod[m/#, 8, 1]]] &]]];
  • PARI
    {a(n) = my(m); if( n<0, 0, m=6*n + 5; (-1)^n * sumdiv(m, d, ((d%6==5) - (d%6==1)) * ((m/d%8==1) + (m/d%8==7))))};
  • PARI
    {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x + A) * eta(x^6 + A)^2 * eta(x^8 + A)^2 / (eta(x^2 + A) * eta(x^3 + A) * eta(x^4 + A)), n))};

Formula

Expansion of psi(-x^2)^2 * psi(x^3) / f(x) in powers of x where psi(), f() are Ramanujan theta functions.
Expansion of psi(-x) * psi(x^3) / chi(-x^4)^2 in powers of x where psi(), chi() are Ramanujan theta functions.
Expansion of q^(-5/6) * eta(q) * eta(q^6)^2 * eta(q^8)^2 / (eta(q^2) * eta(q^3) * eta(q^4)) in powers of q.
Euler transform of period 24 sequence [ -1, 0, 0, 1, -1, -1, -1, -1, 0, 0, -1, 0, -1, 0, 0, -1, -1, -1, -1, 1, 0, 0, -1, -2, ...].
a(n) = (-1)^n * A128582(n). 2 * a(n) = - A134177(3*n + 2) = A190615(3*n + 2).
a(4*n) = A128583(n). a(4*n + 1) = - A128591(n). a(4*n + 2) = a(4*n + 3) = 0.
Showing 1-9 of 9 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.