A208851 -id:A208851 - cp's OEIS frontend

A115671 Number of partitions of n into parts not congruent to 0, 2, 12, 14, 16, 18, 20, 30 (mod 32).

1, 1, 1, 2, 3, 4, 6, 8, 11, 15, 20, 26, 34, 44, 56, 72, 91, 114, 143, 178, 220, 272, 334, 408, 498, 605, 732, 884, 1064, 1276, 1528, 1824, 2171, 2580, 3058, 3616, 4269, 5028, 5910, 6936, 8124, 9498, 11088, 12922, 15034, 17468, 20264, 23472, 27154, 31369

Offset: 0

Michael Somos, Jan 29 2006

nonn

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

Andrews (1987) refers to this sequence as p(S, n) where S is the set in equation (1) on page 437.

			G.f. = 1 + x + x^2 + 2*x^3 + 3*x^4 + 4*x^5 + 6*x^6 + 8*x^7 + 11*x^8 + 15*x^9 + ...
a(5) = 4 since 5 = 4 + 1 = 3 + 1 + 1 = 1 + 1 + 1 + 1 + 1 in 4 ways.
a(6) = 6 since 6 = 5 + 1 = 4 + 1 + 1 = 3 + 3 = 3 + 1 + 1 + 1 = 1 + 1 + 1 + 1 + 1 + 1 in 6 ways.

G. C. Greubel, Table of n, a(n) for n = 0..1000 (terms 0..120 from Reinhard Zumkeller)
G. E. Andrews, q-series, CBMS Regional Conference Series in Mathematics, 66, Amer. Math. Soc. 1986, see p. 32. MR0858826 (88b:11063).
G. E. Andrews, Unsolved Problems: Further Problems on Partitions, Amer. Math. Monthly 94 (1987), no. 5, 437-439.
Mircea Merca, The bisectional pentagonal number theorem, Journal of Number Theory, Volume 157, December 2015, Pages 223-232.
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A080054, A187154, A208851, A208856, A218171.

a115671 = p [x | x <- [0..], (mod x 32) `notElem` [0,2,12,14,16,18,20,30]]
   where p _          0 = 1
         p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m
-- Reinhard Zumkeller, Mar 03 2012

a[ n_] := SeriesCoefficient[ (QPochhammer[ -q] / QPochhammer[ q] + 1) / 2, {q, 0, n}]; (* Michael Somos, Nov 09 2014 *)
a[ n_] := SeriesCoefficient[ (QPochhammer[ q^2]^3 / QPochhammer[ q]^2 / QPochhammer[ q^4] + 1) / 2, {q, 0, n}]; (* Michael Somos, Nov 09 2014 *)

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

Expansion of (f(q) / f(-q) + 1) / 2 in powers of q where f() is a Ramanujan theta function.
Expansion of f(q^6, q^10) / f(-q, -q^3) = (f(q^22, q^26) - q^2 * f(q^10, q^38)) / f(-q, -q^2) in powers of x where f() is Ramanujan's two-variable theta function.
Euler transform of period 32 sequence [ 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, ...].
Given g.f. A(x), then B(x) = (2*A(x) - 1)^2 = g.f. A007096 satisfies 0 = f(B(x), B(x^2)) where f(u, v) = 1 + u^2 - 2 * u * v^2.
G.f. (1 + sqrt( theta_3(x) / theta_4(x))) / 2 = (Sum_{k} x^(8*k^2 - 2*k)) / (Sum_{k} (-x)^(2*k^2 - k)) = (Sum_{k} x^(24*n^2 + 2*n) - x^(24*n^2 + 14*n + 2)) / (Product_{k>0} 1 - x^k).
2 * a(n) = A080054(n) unless n = 0. a(2*n + 2) = A208851(n). a(2*n + 1) = A187154(n). a(n + 1) = A208856(n).

A185083 Partitions of 2*n into parts not congruent to 0, +-2, +-12, +-14, 16 (mod 32).

Original entry on oeis.org

1, 1, 3, 6, 11, 20, 34, 56, 91, 143, 220, 334, 498, 732, 1064, 1528, 2171, 3058, 4269, 5910, 8124, 11088, 15034, 20264, 27154, 36189, 47988, 63324, 83176, 108780, 141672, 183776, 237499, 305812, 392406, 501856, 639781, 813108, 1030354, 1301928, 1640572

Offset: 0

Michael Somos, Mar 02 2012

nonn

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

			1 + x + 3*x^2 + 6*x^3 + 11*x^4 + 20*x^5 + 34*x^6 + 56*x^7 + 91*x^8 + ...

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. A115671, A208850, A208851.

f[x_, y_] := QPochhammer[-x, x*y]*QPochhammer[-y, x*y]*QPochhammer[x*y, x*y]; A185083[n_] := SeriesCoefficient[(1/2)*(f[x^2, x^2]/f[-x, -x] + 1), {x, 0, n}]; Table[A185083[n], {n,0,50}] (* G. C. Greubel, Jun 22 2017 *)

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

Expansion of (phi(q^2) / phi(-q) + 1) / 2 in powers of q where phi() is a Ramanujan theta function.
Euler transform of period 16 sequence [ 1, 2, 3, 2, 3, 0, 1, 0, 1, 0, 3, 2, 3, 2, 1, 0, ...].
2 * a(n) = A208850(n) unless n = 0. a(n + 1) = A208851(n). a(n) = A115671(2*n).

A208856 Partitions of n into parts not congruent to 0, +-4, +-6, +-10, 16 (mod 32).

Original entry on oeis.org

1, 1, 2, 3, 4, 6, 8, 11, 15, 20, 26, 34, 44, 56, 72, 91, 114, 143, 178, 220, 272, 334, 408, 498, 605, 732, 884, 1064, 1276, 1528, 1824, 2171, 2580, 3058, 3616, 4269, 5028, 5910, 6936, 8124, 9498, 11088, 12922, 15034, 17468, 20264, 23472, 27154, 31369, 36189

Offset: 0

Michael Somos, Mar 02 2012

nonn

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

Andrews (1987) refers to this sequence as p(T, n) where T is the set in equation (1) on page 437.

			1 + x + 2*x^2 + 3*x^3 + 4*x^4 + 6*x^5 + 8*x^6 + 11*x^7 + 15*x^8 + 20*x^9 + ...
a(5) = 6 since  5 = 3 + 2 = 3 + 1 + 1 = 2 + 2 + 1 = 2 + 1 + 1 + 1 = 1 + 1 + 1 + 1 + 1 in 6 ways.
a(6) = 8 since  5 + 1 = 3 + 3 = 3 + 2 + 1 = 3 + 1 + 1 + 1 = 2 + 2 + 2 = 2 + 2 + 1 + 1 = 2 + 1 + 1 + 1 + 1 = 1 + 1 + 1 + 1 + 1 + 1 in 8 ways.

G. C. Greubel, Table of n, a(n) for n = 0..1000
G. E. Andrews, Unsolved Problems: Further Problems on Partitions, Amer. Math. Monthly 94 (1987), no. 5, 437-439.
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A080054, A115671, A187154, A208851.

A208856[n_] := SeriesCoefficient[(1/(2*q))*((QPochhammer[-q, -q]/ QPochhammer[q, q]) - 1), {q, 0, n}]; Table[A208856[n], {n,0,50}] (* G. C. Greubel, Jun 19 2017 *)

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

Expansion of (f(x) / f(-x) - 1) / (2 * x) in powers of x where f() is a Ramanujan theta function.
Expansion of (f(x^14, x^34) - x^4 * f(x^2, x^46)) / f(-x, -x^2) in powers of x where f() is Ramanujan's two-variable theta function.
Euler transform of period 32 sequence [ 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, ...].
a(n) = A115671(n + 1). 2 * a(n) = A080054(n + 1). a(2*n) = A187154(n). a(2*n + 1) = A208851(n).

cp's OEIS Frontend

A115671 Number of partitions of n into parts not congruent to 0, 2, 12, 14, 16, 18, 20, 30 (mod 32).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Formula

A185083 Partitions of 2*n into parts not congruent to 0, +-2, +-12, +-14, 16 (mod 32).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A208856 Partitions of n into parts not congruent to 0, +-4, +-6, +-10, 16 (mod 32).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula