A258210 -id:A258210 - cp's OEIS frontend

A002175 Excess of number of divisors of 12n+1 of form 4k+1 over those of form 4k+3.

1, 2, 3, 2, 1, 2, 2, 4, 2, 2, 1, 0, 4, 2, 3, 2, 2, 4, 0, 2, 2, 0, 4, 2, 3, 0, 2, 6, 2, 2, 1, 2, 0, 2, 2, 2, 2, 4, 2, 0, 4, 4, 4, 0, 1, 2, 0, 4, 2, 0, 2, 2, 5, 2, 0, 2, 2, 4, 4, 2, 0, 2, 4, 2, 2, 0, 4, 0, 0, 2, 3, 2, 4, 2, 0, 4, 0, 6, 2, 4, 1, 0, 4, 2, 2, 2, 2, 0, 0, 2, 0, 2, 8, 2, 2, 0, 2, 4, 0, 4, 2, 2, 3, 2, 2

Offset: 0

N. J. A. Sloane

nonn

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

Number of ways to write n as an ordered sum of 2 generalized pentagonal numbers. - Ilya Gutkovskiy, Aug 14 2017

			G.f. = 1 + 2*x + 3*x^2 + 2*x^3 + x^4 + 2*x^5 + 2*x^6 + 4*x^7 + 2*x^8 + 2*x^9 + ...
G.f. = q + 2*q^13 + 3*q^25 + 2*q^37 + q^49 + 2*q^61 + 2*q^73 + 4*q^85 + 2*q^97 + ...

N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

John Cerkan, Table of n, a(n) for n = 0..10000
J. W. L. Glaisher, On the square of Euler's series, Proc. London Math. Soc., 21 (1889), 182-194.
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A002654, A008441, A008442, A035154, A035181, A035184, A112301, A113406.
Cf. A113652, A116604, A121363, A121450, A122856, A122864, A122865, A125061.
Cf. A125079, A129447, A129448, A132004, A134013, A134015, A138741, A138746.
Cf. A138950, A138952, A163746, A258210, A258228, A258256, A258279, A258292.

series(mul( ( (1 + q^n)*(1 - q^(3*n))/(1 + q^(3*n)) )^2, n = 1..100), q, 101):
seq(coeftayl(%, q = 0, n), n = 0..100); # Peter Bala, Jan 05 2025

ed[n_]:=Module[{divs=Divisors[12n+1]},Count[divs,?(Mod[#,4] == 1&)]- Count[divs,?(Mod[#,4]==3&)]]; Array[ed,110,0] (* Harvey P. Dale, Jul 01 2012 *)
a[ n_] := If[ n < 0, 0, With[ {m = 12 n + 1}, Sum[ KroneckerSymbol[ 4, d], {d, Divisors[m]}]]]; (* Michael Somos, Apr 23 2014 *)
a[ n_] := SeriesCoefficient[ (QPochhammer[ x^2] QPochhammer[ x^3]^2 / (QPochhammer[ x] QPochhammer[ x^6]))^2, {x, 0, n}]; (* Michael Somos, Apr 23 2014 *)
a[ n_] := SeriesCoefficient[ (EllipticTheta[ 4, 0, x^3] / QPochhammer[ x, x^2])^2, {x, 0, n}]; (* Michael Somos, May 25 2015 *)

{a(n) = if( n<0, 0, n = 12*n + 1; sumdiv( n, d, (d%4==1) - (d%4==3)))}; /* Michael Somos, Sep 19 2005 */

{a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( (eta(x^2 + A) * eta(x^3 + A)^2 / (eta(x + A) * eta(x^6 + A)))^2, n))}; /* Michael Somos, Jun 02 2012 */

Expansion of (phi(-x^3) / chi(-x))^2 in powers of x where phi(), chi() are Ramanujan theta functions.
Expansion of q^(-1/12) * (eta(q^2) * eta(q^3)^2 / (eta(q) * eta(q^6)))^2 in powers of q. - Michael Somos, Sep 19 2005
Euler transform of period 6 sequence [ 2, 0, -2, 0, 2, -2, ...]. - Michael Somos, Sep 19 2005
G.f. is a period 1 Fourier series which satisfies f(-1 / (72 t)) = 2 (t/i) g(t) where q = exp(2 Pi i t) and g() is the g.f. for A258279. - Michael Somos, May 25 2015
From Michael Somos, Jun 02 2012: (Start)
a(n) = A008441(3*n) = A121363(3*n) = A122865(4*n) = A122856(8*n).
a(n) = A116604(6*n) = A125079(6*n) = A129447(6*n) = A138741(6*n).
a(n) = A(12*n+1) where A = A002654, A008442, A035154, A035181, A035184, A112301, A113406, A113652, A121450, A122864, A125061, A129448, A132004, A134013, A134015, A138746, A138950, A138952, A163746.  (End)
From Michael Somos, May 25 2015: (Start)
a(n) = A258277(4*n) = A258278(8*n) = A258291(3*n).
a(n) = - A258210(12*n + 1) = A258228(12*n + 1) = A258256(12*n + 1).
2*a(n) = A258279(12*n + 1) = - A258292(12*n + 1). (End)
G.f.: (Sum_{k = -oo..oo} x^(k*(3*k-1)/2))^2. - Ilya Gutkovskiy, Aug 14 2017
G.f.: ( Product_{n >= 1} (1 + q^n)*(1 - q^(3*n))/(1 + q^(3*n)) )^2. - Peter Bala, Jan 05 2025

A121444 Expansion of f(x^3, x^9) * f(x, x^2) in powers of x where f(, ) is Ramanujan's general theta functions.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 0, 1, 1, 1, 2, 1, 1, 0, 1, 2, 1, 0, 2, 1, 1, 1, 1, 1, 1, 2, 1, 0, 0, 1, 2, 2, 1, 1, 0, 3, 0, 1, 1, 0, 2, 0, 1, 1, 2, 2, 1, 1, 0, 1, 1, 1, 2, 1, 1, 0, 1, 2, 1, 0, 3, 0, 0, 1, 1, 2, 1, 1, 1, 1, 3, 1, 0, 1, 0, 2, 0, 1, 1, 1, 2, 1, 0, 0, 1, 3, 2

Offset: 0

Michael Somos, Jul 30 2006

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

			G.f. = 1 + x + x^2 + x^3 + x^4 + 2*x^5 + x^7 + x^8 + x^9 + 2*x^10 + x^11 + ...
G.f. = q^5 + q^17 + q^29 + q^41 + q^53 + 2*q^65 + q^89 + q^101 + q^113 + ...

Seiichi Manyama, Table of n, a(n) for n = 0..10000
R. P. Agarwal, Lambert series and Ramanujan, Prod. Indian Acad. Sci. (Math. Sci.), v. 103, n. 3, 1993, pp. 269-293 (see p. 285).
K. Saito, "Extended Affine Root Systems. V. Elliptic Eta-Products and Their Dirichlet Series", Proceedings on Moonshine and related topics (Montreal, QC, 1999), 139-161, CRM Proc. Lecture Notes, 30, Amer. Math. Soc., Providence, RI, 2001. MR1881609 (2003d:11066) See page 215.
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A098098, A121363, A258210, A258291, A258832.

a[ n_] := If[ n < 0, 0, Sum[ I^d, {d, Divisors[12 n + 5]}] / (2 I)]; (* Michael Somos, Jul 25 2015 *)
a[ n_] := SeriesCoefficient[ 2 x^(3/8) QPochhammer[ x^6]^3 / (QPochhammer[ x, x^2] EllipticTheta[ 2, 0, x^(3/2)]), {x, 0, n}]; (* Michael Somos, Jan 31 2015 *)
a[ n_] := Length @ FindInstance[ 24 n + 10 == (6 j + 3)^2 + (6 k + 1)^2 && j >= 0, {j, k}, Integers, 10^9]; (* Michael Somos, Jul 02 2015 *)
a[ n_] := If[ n < 0, 0, DivisorSum[ 12 n + 5, KroneckerSymbol[ -4, #] &] / 2]; (* Michael Somos, Nov 11 2015 *)
a[ n_] := If[ n < 0, 0, Sum[ Boole[ Mod[d, 4] == 1] - Boole[ Mod[d, 4] == 3], {d, Divisors[12 n + 5]}] / 2]; (* Michael Somos, Nov 11 2015 *)
a[ n_] := SeriesCoefficient[ QPochhammer[ -x, x] QPochhammer[ x^3] QPochhammer[ x^6], {x, 0, n}]; (* Michael Somos, Nov 11 2015 *)

{a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^2 + A) * eta(x^3 + A) * eta(x^6 + A) / eta(x + A), n))};

{a(n) = if( n<0, 0, n = 12*n + 5; sumdiv(n, d, (d%4==1) - (d%4==3)) / 2)};

Expansion of f(-x^3) * f(-x^6) / chi(-x) in powers of x where chi(), f() are Ramanujan theta functions.
Expansion of q^(-5/12) * eta(q^2) * eta(q^3) * eta(q^6) / eta(q) in powers of q.
Euler transform of period 6 sequence [ 1, 0, 0, 0, 1, -2, ...].
G.f. is a period 1 Fourier series which satisfies f(-1 / (72 t)) = (t/i) g(t) where q = exp(2 Pi i t) and g() is the g.f. for A258210.
G.f.: Product_{k>0} (1 + x^k) * (1 - x^(3*k)) * (1 - x^(6*k)).
-2 * a(n) = A121363(3*n + 1).
Convolution square is A098098.
a(n) = (-1)^n * A258832(n) = A052343(3*n + 1). -a(n) = A258291(3*n + 1). 2 * a(n) = A008441(3*n + 1). - Michael Somos, Jul 02 2015
From Peter Bala, Jan 07 2021: (Start)
G.f. A(x) = Sum_{n = -oo..oo} x^n/(1 - x^(12*n + 5)). See Agarwal, p. 285, equation 6.19.
A(x^2) = Sum_{n = -oo..oo} x^(2*n)/(1 - x^(12*n + 5)). Cf. A033761. (End)

A077285 Number of partitions of n with designated summands.

Original entry on oeis.org

1, 1, 3, 5, 10, 15, 28, 41, 69, 102, 160, 231, 352, 498, 732, 1027, 1470, 2031, 2856, 3896, 5382, 7272, 9896, 13233, 17800, 23579, 31362, 41219, 54288, 70791, 92456, 119698, 155097, 199512, 256664, 328134, 419436, 533162, 677412, 856573, 1082284, 1361679

Offset: 0

Jorn B. Olsson (olsson(AT)math.ku.dk), Nov 26 2003

nonn

Sum of products of multiplicities of parts in all partitions of n. The partitions of 4 are 4, 1+3, 2+2, 2+1+1, 1+1+1+1, the corresponding products are 1,1,2,2,4 and their sum is a(4) = 10. - Vladeta Jovovic, Feb 16 2005

			a(3)=5 because the partitions of 3 with designated summands are 3', 2'1', 1'11, 11'1, 111'.
1 + x + 3*x^2 + 5*x^3 + 10*x^4 + 15*x^5 + 28*x^6 + 41*x^7 + 69*x^8 + 102*x^9 + ...

Alois P. Heinz, Table of n, a(n) for n = 0..10000
G. E. Andrews, R. P. Lewis, and J. Lovejoy, Partitions with designated summands, Acta Arith. 105 (2002), no. 1, 51-66.
William Y. C. Chen, Kathy Q. Ji, Hai-Tao Jin, and Erin Y. Y. Shen, On the Number of Partitions with Designated Summands, arXiv:1208.2210 [math.CO], 2012.
Daniel Herden, Mark R. Sepanski, Jonathan Stanfill, Cordell Hammon, Joel Henningsen, Henry Ickes, and Indalecio Ruiz, Partitions With Designated Summands Not Divisible by 2^L, 2, and 3^L Modulo 2, 4, and 3, arXiv:2101.04058 [math.CO], 2021. See also Integers (2023) Vol. 23, Art. No. A43.
N. J. A. Sloane, Transforms

Cf. A000041, A091601.
Cf. A102186 (partitions into odd parts with designated summands).
Cf. A258210, A266477.

b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      b(n, i-1) +add(b(n-i*j, i-1)*j, j=1..n/i)))
    end:
a:= n-> b(n$2):
seq(a(n), n=0..50);  # Alois P. Heinz, Feb 26 2013

max = 50; f = Product[(1-x^i+x^(2*i))/(1-x^i)^2, {i, 1, max}]; s = Series[f, {x, 0, max}] // Normal; a[n_] := Coefficient[s, x, n]; Table[a[n], {n, 0, max}] (* Jean-François Alcover, May 06 2014, after Vladeta Jovovic *)
nmax=100; CoefficientList[Series[Product[(1+x^(3*k)) / ((1-x^k) * (1-x^(2*k))), {k,1,nmax}], {x,0,nmax}], x] (* Vaclav Kotesovec, Nov 28 2015 *)
QP = QPochhammer; s = QP[q^6]/(QP[q]*QP[q^2]*QP[q^3]) + O[q]^50; CoefficientList[s, q] (* Jean-François Alcover, Dec 01 2015, adapted from PARI *)
Table[Total[l = Tally /@ IntegerPartitions@n;
Table[x = l[[i]]; Product[x[[j, 2]], {j, Length[x]}], {i, Length[l]}]], {n, 0, 41}] (* Robert Price, Jun 06 2020 *)

{a(n) = local(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^6 + A) / (eta(x + A) * eta(x^2 + A) * eta(x^3 + A)), n))} /* Michael Somos, Feb 05 2004 */

Expansion of eta(q^6) / (eta(q) * eta(q^2) * eta(q^3)) in powers of q. - Michael Somos, Feb 05 2004
Euler transform of period 6 sequence [ 1, 2, 2, 2, 1, 2, ...]. - Michael Somos, Feb 05 2004
G.f.: P(x)*P(x^2)*P(x^3)/P(x^6), where P(x)=Product_{k>0} 1/(1-x^k) is the partition generating function (A000041).
Equals EULER(DCONV(A000012, iEULER(A000027))).
G.f.: Product_{i>=1} (1-x^i+x^(2*i)) / (1-x^i)^2. - Vladeta Jovovic, Jan 16 2005
a(n) ~ 5^(3/4) * exp(Pi*sqrt(10*n)/3) / (2^(11/4) * 3^(3/2) * n^(5/4)). - Vaclav Kotesovec, Nov 28 2015
a(n) = Sum_{k>=1} k*A266477(n,k). - Alois P. Heinz, Dec 29 2015
G.f.: Product_{i>0} (1 + Sum_{j>0} j*x^(j*i)). - Seiichi Manyama, Oct 08 2017

Edited and extended by Christian G. Bower, Jan 23 2004

A258277 Expansion of chi(-q) * phi(-q^3) * psi(q^3) in powers of q where chi(), phi(), psi() are Ramanujan theta functions.

Original entry on oeis.org

1, -1, 0, -2, 2, -1, 0, 0, 3, 0, 0, -2, 2, -2, 0, 0, 1, -2, 0, -2, 2, -1, 0, 0, 2, 0, 0, -2, 4, 0, 0, 0, 2, -3, 0, -2, 2, 0, 0, 0, 1, 0, 0, -4, 0, -2, 0, 0, 4, -2, 0, 0, 2, -2, 0, 0, 3, 0, 0, -2, 2, 0, 0, 0, 2, -1, 0, -2, 4, -2, 0, 0, 0, 0, 0, -2, 2, -2, 0, 0

Offset: 0

Michael Somos, May 25 2015

sign

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

			G.f. = 1 - x - 2*x^3 + 2*x^4 - x^5 + 3*x^8 - 2*x^11 + 2*x^12 - 2*x^13 + ...
G.f. = q - q^4 - 2*q^10 + 2*q^13 - q^16 + 3*q^25 - 2*q^34 + 2*q^37 + ...

G. C. Greubel, Table of n, a(n) for n = 0..1000
Christian Kassel, Christophe Reutenauer, The Fourier expansion of eta(z)eta(2z)eta(3z)/eta(6z), arXiv:1603.06357 [math.NT], 2016.
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A002175, A121444, A122856, A122865, A258210.

a[ n_] := SeriesCoefficient[ QPochhammer[ x^3] QPochhammer[ x^6] / QPochhammer[ -x, x], {x, 0, n}];

{a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x + A) * eta(x^3 + A) * eta(x^6 + A) / eta(x^2 + A), n))};

Expansion of q^(-1/3) * eta(q) * eta(q^3) * eta(q^6) / eta(q^2) in powers of q.
Euler transform of period 6 sequence [ -1, 0, -2, 0, -1, -2, ...].
G.f.: Product_{k>0} (1 - x^(3*k)) * (1 - x^(6*k)) / (1 + x^k).
a(n) = (-1)^n * A122865(n).
a(2*n + 1) = - A122856(n). a(4*n) = A002175(n). a(4*n + 1) = - A122865(n). a(4*n + 2) = a(8*n + 7) = 0. a(8*n + 3) = -2 * A121444(n). a(8*n + 5) = - A122856(n).
a(n) = -A258210(3*n + 1). - Michael Somos, May 01 2016

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

Original entry on oeis.org

1, -2, 1, 0, 0, -2, 2, 0, 2, -2, 1, 0, 0, -2, 0, 0, 3, -2, 0, 0, 0, -4, 2, 0, 2, 0, 2, 0, 0, -2, 0, 0, 1, -2, 2, 0, 0, -2, 2, 0, 2, -4, 1, 0, 0, -2, 0, 0, 2, -2, 0, 0, 0, 0, 2, 0, 4, -2, 0, 0, 0, -4, 0, 0, 2, -2, 3, 0, 0, 0, 2, 0, 2, -4, 0, 0, 0, -2, 0, 0, 1

Offset: 0

Michael Somos, May 25 2015

sign

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

			G.f. = 1 - 2*x + x^2 - 2*x^5 + 2*x^6 + 2*x^8 - 2*x^9 + x^10 - 2*x^13 + ...
G.f. = q^2 - 2*q^5 + q^8 - 2*q^17 + 2*q^20 + 2*q^26 - 2*q^29 + q^32 + ...

G. C. Greubel, Table of n, a(n) for n = 0..1000
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A002175, A089802, A121444, A122856, A122865, A258210.

a[ n_] := SeriesCoefficient[ QPochhammer[ x, x^2]^2 EllipticTheta[ 2, 0, x^(3/2)]^2 / (4 x^(3/4)), {x, 0, n}];

{a(n) = if( n<0, 0, A = x * O(x^n); polcoeff( (eta(x + A) * eta(x^6 + A)^2 / (eta(x^2 + A) * eta(x^3 + A)))^2, n))};

Expansion of (chi(-x) * psi(x^3))^2 in powers of x where chi(), psi() are Ramanujan theta functions.
Expansion of q^(-2/3) * (eta(q) * eta(q^6)^2 / (eta(q^2) * eta(q^3)))^2 in powers of q.
Euler transform of period 6 sequence [ -2, 0, 0, 0, -2, -2, ...].
a(n) = (-1)^n * A122856(n). Convolution square of A089802.
a(2*n) = A122865(n). a(4*n +1) = -2 * A121444(n). a(4*n + 2) = A122856(n). a(4*n + 3) = a(8*n + 4) = 0. a(8*n) = A002175(n). a(8*n + 2) = A122856(n).
2 * a(n) = -A258210(3*n + 2). - Michael Somos, May 01 2016

A104794 Expansion of theta_4(q)^2 in powers of q.

Original entry on oeis.org

1, -4, 4, 0, 4, -8, 0, 0, 4, -4, 8, 0, 0, -8, 0, 0, 4, -8, 4, 0, 8, 0, 0, 0, 0, -12, 8, 0, 0, -8, 0, 0, 4, 0, 8, 0, 4, -8, 0, 0, 8, -8, 0, 0, 0, -8, 0, 0, 0, -4, 12, 0, 8, -8, 0, 0, 0, 0, 8, 0, 0, -8, 0, 0, 4, -16, 0, 0, 8, 0, 0, 0, 4, -8, 8, 0, 0, 0, 0, 0, 8

Offset: 0

Michael Somos, Mar 26 2005

sign

Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).
Quadratic AGM theta functions: a(q) (see A004018), b(q) (A104794), c(q) (A005883).
In the Arithmetic-Geometric Mean, if a = theta_3(q)^2, b = theta_4(q)^2 then a' := (a+b)/2 = theta_3(q^2)^2, b' := sqrt(a*b) = theta_4(q^2)^2.

			G.f. = 1 - 4*q + 4*q^2 + 4*q^4 - 8*q^5 + 4*q^8 - 4*q^9 + 8*q^10 - 8*q^13 + ...

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 576.
J. M. Borwein and P. B. Borwein, Pi and the AGM, Wiley, 1987.

Seiichi Manyama, Table of n, a(n) for n = 0..10000
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A000203, A000729, A001934, A002131, A004018, A008441, A053692, A113407, A113652, A122856, A122865, A204531, A227695, A246950, A256014, A258210.

# JacobiTheta4 is defined in A002448.
A104794List(len) = JacobiTheta4(len, 2)
A104794List(102) |> println # Peter Luschny, Mar 12 2018

A := Basis( ModularForms( Gamma1(8), 1), 100); A[1] - 4*A[2] + 4*A[3]; /* Michael Somos, Jan 31 2015 */

a[ n_] := SeriesCoefficient[ EllipticTheta[ 4, 0, q]^2, {q, 0, n}];
a[ n_] := With[ {m = InverseEllipticNomeQ @ q}, SeriesCoefficient[ Sqrt[1 - m] EllipticK[m] / (Pi/2), {q, 0, n}]];
a[ n_] := With[ {m = InverseEllipticNomeQ @ q}, SeriesCoefficient[ (1 - m)^(1/4) EllipticK[m] / (Pi/2), {q, 0, 2 n}]];
a[ n_] := With[ {m = InverseEllipticNomeQ @ -q}, SeriesCoefficient[ EllipticK[ m] / (Pi/2), {q, 0, n}]]; (* Michael Somos, Jun 06 2015 *)
a[ n_] := If[ n < 1, Boole[n == 0], (-1)^n 4 DivisorSum[ n, KroneckerSymbol[ -4, #] &]]; (* Michael Somos, Jun 06 2015 *)

{a(n) = if( n<1, n==0, (-1)^n * 4 * sumdiv(n, d, (d%4==1) - (d%4==3)))};

{a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x + A)^4 / eta(x^2 + A)^2, n ))};

{a(n) = if( n<0, 0, polcoeff( 1 + 4 * sum( k=1, n, (-x)^k / (1 + x^(2*k)), x * O(x^n)), n))};

Expansion of phi(-q)^2 = 2 * phi(q^2)^2 - phi(q)^2 = (phi(q) - 2*phi(q^4))^2 = f(-q)^3 / psi(q) = phi(-q^2)^4 / phi(q)^2 = psi(-q)^4 / psi(q^2)^2 = psi(q)^2 * chi(-q)^6 in powers of q where phi(), psi(), chi(), f() are Ramanujan theta functions.
Expansion of (1-k^2)^(1/2) K(k^2) / (Pi/2) in powers of q where q is Jacobi's nome, k is the elliptic modulus and K() is the complete elliptic integral of the first kind.
Expansion of  K(k^2) / (Pi/2) in powers of -q where q is Jacobi's nome, k is the elliptic modulus and K() is the complete elliptic integral of the first kind. - Michael Somos, Jun 08 2015
Expansion of eta(q)^4 / eta(q^2)^2 in powers of q.
Euler transform of period 2 sequence [ -4, -2, ...].
G.f. A(x) satisfies 0 = f(A(x), A(x^2), A(x^4)) where f(u, v, w) = v * (u^2 + v^2) - 2*u*w^2.
G.f. A(x) satisfies 0 = f(A(x), A(x^2), A(x^3), A(x^6)) where f(u1, u2, u3, u6) = u1^2 - 2*u1*u3 + 4*u2*u6 - 3*u3^2.
Moebius transform is period 8 sequence [ -4, 8, 4, 0, -4, -8, 4, 0, ...].
G.f. is a period 1 Fourier series which satisfies f(-1 / (8 t)) = 16 (t/i) g(t) where q = exp(2 Pi i t) and g() is the g.f. for A008441.
G.f.: theta_4(q)^2 = (Sum_{k in Z} (-q)^(k^2))^2 = (Product_{k>0} (1 - q^(2*k)) * (1 - q^(2*k - 1))^2)^2.
G.f.: 1 + 4 * Sum_{k>0} (-x)^k / (1 + x^(2*k)). - Michael Somos, Jun 08 2015
a(4*n + 3) = 0. a(n) = (-1)^n * A004018(n) = a(2*n). a(4*n + 1) = -4 * A008441(n). a(n) = -4 * A113652(n) unless n=0. a(6*n + 2) = 4 * A122865(n). a(6*n + 4) = 4 * A122856(n). a(8*n + 1) = -4 * A113407(n). a(8*n + 5) = -8 * A053692(n).
a(n) = a(9*n) = A204531(8*n) = A246950(8*n) = A256014(9*n) = A258210(n). - Michael Somos, Jun 08 2015
Convolution inverse of A001934. Convolution with A000729 is A227695. - Michael Somos, Jun 08 2015
G.f.: 2 * Sum_{k in Z} (-1)^k * x^(k*(k + 1)/2) / (1 + x^k). - Michael Somos, Nov 05 2015
a(0) = 1, a(n) = -(4/n)*Sum_{k=1..n} A002131(k)*a(n-k) for n > 0. - Seiichi Manyama, May 02 2017
G.f.: exp(2*Sum_{k>=1} (sigma(k) - sigma(2*k))*x^k/k). - Ilya Gutkovskiy, Sep 19 2018

A258228 Expansion of f(q) * f(-q^2) * chi(q^3) in powers of q where chi(), f() are Ramanujan theta functions.

Original entry on oeis.org

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

Offset: 0

Michael Somos, May 23 2015

sign

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

			G.f. = 1 + q - 2*q^2 + q^4 - 4*q^5 - 2*q^8 + 4*q^9 + 2*q^10 + 2*q^13 + ...

G. C. Greubel, Table of n, a(n) for n = 0..1000
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A002175, A004018, A122856, A122865, A258210, A258279, A258292.

A := Basis( ModularForms( Gamma1(36), 1), 82); A[1] + A[2] - 2*A[3] + A[5] - 4*A[6] - 2*A[9] + 4*A[10] + 2*A[11] + 2*A[14] + A[17] - 4*A[18] + 4*A[19];

a[ n_] := SeriesCoefficient[ QPochhammer[ -q]^2 / (QPochhammer[ -q, q^6] QPochhammer[ -q^5, q^6]), {q, 0, n}];

{a(n) = if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^2 + A)^4 * eta(x^6 + A)^2 / (eta(x + A) * eta(x^3 + A) * eta(x^4 + A) * eta(x^12 + A)), n))};

Expansion of f(q)^2 * f(-q^6) / f(q, q^5) in powers of q where f(,) is Ramanujan's general theta function.
Expansion of eta(q^2)^4 * eta(q^6)^2 / (eta(q) * eta(q^3) * eta(q^4) * eta(q^12)) in powers of q.
Euler transform of period 12 sequence [ 1, -3, 2, -2, 1, -4, 1, -2, 2, -3, 1, -2, ...].
G.f. is a period 1 Fourier series which satisfies f(-1 / (36 t)) = 18 (t/i) g(t) where q = exp(2 Pi i t) and g() is the g.f. for A122865.
G.f.: Product_{k>0} (1 + x^k) * (1 - x^(2*k))^2 * (1 + x^(3*k)) / ((1 + x^(2*k)) * (1 + x^(6*k))).
a(n) = (-1)^n * A258210(n) = A258279(2*n) = A258292(2*n).
a(3*n + 1) = A122865(n). a(3*n + 2) = -2 * A122856(n). a(9*n) = A004018(n). a(9*n + 3) = a(9*n + 6) = 0.
a(4*n + 3) = 0. a(6*n + 2) = -2 * A122865(n). a(12*n + 1) = A002175(n).

A290217 Square array A(n,k), n >= 0, k >= 0, read by antidiagonals, where column k is the expansion of g.f. Product_{i>0} 1/(1 + Sum_{j=1..k} jx^(ji)).

Original entry on oeis.org

1, 1, 0, 1, -1, 0, 1, -1, 0, 0, 1, -1, -2, -1, 0, 1, -1, -2, 3, 1, 0, 1, -1, -2, 0, -1, -1, 0, 1, -1, -2, 0, 5, -5, 1, 0, 1, -1, -2, 0, 1, 1, 9, -1, 0, 1, -1, -2, 0, 1, 9, -12, 3, 2, 0, 1, -1, -2, 0, 1, 4, -4, -3, -20, -2, 0, 1, -1, -2, 0, 1, 4, 6, -15, 31, 16, 2

Offset: 0

Seiichi Manyama, Oct 06 2017

			Square array begins:
   1,  1,  1,  1,  1, ...
   0, -1, -1, -1, -1, ...
   0,  0, -2, -2, -2, ...
   0, -1,  3,  0,  0, ...
   0,  1, -1,  5,  1, ...
   0, -1, -5,  1,  9, ...

Seiichi Manyama, Antidiagonals n = 0..139, flattened

Columns k=0..3 give A000007, A081362, A293287, A290395.
Rows n=0..1 give A000012, (-1)*A057427.
Main diagonal gives A258210.
Cf. A290216, A293307.

A252650 Expansion of (eta(q) * eta(q^2) * eta(q^3) / eta(q^6))^2 in powers of q.

Original entry on oeis.org

1, -2, -3, 4, 6, 6, -12, -16, -3, 4, 36, 12, -12, -28, -24, 24, 6, 18, -12, -40, -18, 32, 72, 24, -12, -62, -42, 4, 48, 30, -72, -64, -3, 48, 108, 48, -12, -76, -60, 56, 36, 42, -96, -88, -36, 24, 144, 48, -12, -114, -93, 72, 84, 54, -12, -144, -24, 80, 180

Offset: 0

Michael Somos, Mar 21 2015

sign

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

Cubic AGM theta functions: a(q) (see A004016), b(q) (A005928), c(q) (A005882).

			G.f. = 1 - 2*q - 3*q^2 + 4*q^3 + 6*q^4 + 6*q^5 - 12*q^6 - 16*q^7 - 3*q^8 + ...

Seiichi Manyama, Table of n, a(n) for n = 0..10000
C. Kassel and C. Reutenauer, On the Zeta Functions of Punctual Hilbert schemes of a Two-Dimensional Torus, arXiv:1505.07229 [math.AG], 2015, see page 31 7.2(d).
Christian Kassel, Christophe Reutenauer, The Fourier expansion of eta(z)eta(2z)eta(3z)/eta(6z), arXiv:1603.06357 [math.NT], 2016.
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

This is the square of the series in A258210.

Cf. A098098.

A := Basis( ModularForms( Gamma0(36), 2), 58); A[1] - 2*A[2] - 3*A[3] + 4*A[4] + 6*A[5] + 6*A[6] - 12*A[7] - 16*A[8] - 3*A[9] + 4*A[10] + 36*A[11] - 12*A[12];

QP = QPochhammer; s = (QP[q]*QP[q^2]*(QP[q^3]/QP[q^6]))^2 + O[q]^60; CoefficientList[s, q] (* Jean-François Alcover, Nov 25 2015 *)

{a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( (eta(x + A) * eta(x^2 + A) * eta(x^3 + A) / eta(x^6 + A))^2, n))};

Expansion of f(-q)^4 * f(q, q^2)^2 / f(-q^3)^2 = f(-q)^4 * f(-q^6)^2 / f(-q, -q^5)^2 in powers of q where f() is a Ramanujan theta function.
Expansion of b(q) * c(q) * sqrt(b(q^2) / (3 * c(q^2))) in powers of q where b(), c() are cubic AGM theta functions.
Euler transform of period 6 sequence [-2, -4, -4, -4, -2, -4, ...].
G.f.: Product_{k>0} (1 - x^k)^4 / (1 - x^k + x^(2*k))^2.
G.f. is a period 1 Fourier series which satisfies f(-1 / (36 t)) = 1296 (t/i)^2 g(t) where q = exp(2 Pi i t) and g() is the g.f. for A098098.

A329156 Expansion of Product_{k>=1} 1 / (1 - Sum_{j>=1} j * x^(k*j)).

Original entry on oeis.org

1, 1, 4, 10, 29, 72, 200, 510, 1364, 3546, 9348, 24400, 64090, 167562, 439200, 1149360, 3010349, 7879832, 20633304, 54014950, 141422328, 370239300, 969323000, 2537696160, 6643839400, 17393731933, 45537549048, 119218684970, 312119004990, 817137724392, 2139295489200, 5600747143950

Offset: 0

Ilya Gutkovskiy, Nov 06 2019

nonn

Euler transform of A032198.

Alois P. Heinz, Table of n, a(n) for n = 0..2392
Christian Kassel and Christophe Reutenauer, Pairs of intertwined integer sequences, arXiv:2507.15780 [math.NT], 2025. See p. 13.

Cf. A006951, A032198, A088305, A162891, A258210, A329157, A329163, A386706, A387017.

Convolution inverse of A329157.

b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i>1, b(n, i-1), 0)-
      add(b(n-i*j, min(n-i*j, i-1))*j, j=`if`(i=1, n, 1..n/i)))
    end:
a:= proc(n) option remember; `if`(n=0, 1,
      -add(a(j)*b(n-j$2), j=0..n-1))
    end:
seq(a(n), n=0..31);  # Alois P. Heinz, Jul 25 2025

nmax = 31; CoefficientList[Series[Product[1/(1 - Sum[j x^(k j), {j, 1, nmax}]), {k, 1, nmax}], {x, 0, nmax}], x]
nmax = 31; CoefficientList[Series[Product[1/(1 - x^k/(1 - x^k)^2), {k, 1, nmax}], {x, 0, nmax}], x]

G.f.: Product_{k>=1} 1 / (1 - x^k / (1 - x^k)^2).
G.f.: exp(Sum_{k>=1} ( Sum_{d|k} 1 / (d * (1 - x^(k/d))^(2*d)) ) * x^k).
G.f.: Product_{k>=1} 1 / (1 - x^k)^A032198(k).
G.f.: A(x) = Product_{k>=1} B(x^k), where B(x) = g.f. of A088305.
a(n) ~ phi^(2*n-1), where phi = A001622 = (1+sqrt(5))/2 is the golden ratio. - Vaclav Kotesovec, Nov 07 2019
a(2^k) = A002878(2^k-1) for all nonnegative integers k. Follows from Cor. 4.5 on page 11 of Kassel-Reutenauer paper. - Michael De Vlieger, Jul 28 2025

cp's OEIS Frontend

A002175 Excess of number of divisors of 12n+1 of form 4k+1 over those of form 4k+3.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

Formula

A121444 Expansion of f(x^3, x^9) * f(x, x^2) in powers of x where f(, ) is Ramanujan's general theta functions.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A077285 Number of partitions of n with designated summands.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A258277 Expansion of chi(-q) * phi(-q^3) * psi(q^3) in powers of q where chi(), phi(), psi() are Ramanujan theta functions.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A104794 Expansion of theta_4(q)^2 in powers of q.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Julia

Magma

Mathematica

A290217 Square array A(n,k), n >= 0, k >= 0, read by antidiagonals, where column k is the expansion of g.f. Product_{i>0} 1/(1 + Sum_{j=1..k} jx^(ji)).