A101708 -id:A101708 - cp's OEIS frontend

A027187 Number of partitions of n into an even number of parts.

1, 0, 1, 1, 3, 3, 6, 7, 12, 14, 22, 27, 40, 49, 69, 86, 118, 146, 195, 242, 317, 392, 505, 623, 793, 973, 1224, 1498, 1867, 2274, 2811, 3411, 4186, 5059, 6168, 7427, 9005, 10801, 13026, 15572, 18692, 22267, 26613, 31602, 37619, 44533, 52815, 62338, 73680, 86716, 102162, 119918

Offset: 0

Clark Kimberling

nonn

Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).
For n > 0, also the number of partitions of n whose greatest part is even. [Edited by Gus Wiseman, Jan 05 2021]
Number of partitions of n+1 into an odd number of parts, the least being 1.
Also the number of partitions of n such that the number of even parts has the same parity as the number of odd parts; see Comments at A027193. - Clark Kimberling, Feb 01 2014, corrected Jan 06 2021
Suppose that c(0) = 1, that c(1), c(2), ... are indeterminates, that d(0) = 1, and that d(n) = -c(n) - c(n-1)*d(1) - ... - c(0)*d(n-1).  When d(n) is expanded as a polynomial in c(1), c(2),..,c(n), the terms are of the form H*c(i_1)*c(i_2)*...*c(i_k).  Let P(n) = [c(i_1), c(i_2), ..., c(i_k)], a partition of n.  Then H is negative if P has an odd number of parts, and H is positive if P has an even number of parts.  That is, d(n) has A027193(n) negative coefficients, A027187(n) positive coefficients, and A000041 terms.  The maximal coefficient in d(n), in absolute value, is A102462(n). - Clark Kimberling, Dec 15 2016

			G.f. = 1 + x^2 + x^3 + 3*x^4 + 3*x^5 + 6*x^6 + 7*x^7 + 12*x^8 + 14*x^9 + 22*x^10 + ...
From _Gus Wiseman_, Jan 05 2021: (Start)
The a(2) = 1 through a(8) = 12 partitions into an even number of parts are the following. The Heinz numbers of these partitions are given by A028260.
  (11)  (21)  (22)    (32)    (33)      (43)      (44)
              (31)    (41)    (42)      (52)      (53)
              (1111)  (2111)  (51)      (61)      (62)
                              (2211)    (2221)    (71)
                              (3111)    (3211)    (2222)
                              (111111)  (4111)    (3221)
                                        (211111)  (3311)
                                                  (4211)
                                                  (5111)
                                                  (221111)
                                                  (311111)
                                                  (11111111)
The a(2) = 1 through a(8) = 12 partitions whose greatest part is even are the following. The Heinz numbers of these partitions are given by A244990.
  (2)  (21)  (4)    (41)    (6)      (43)      (8)
             (22)   (221)   (42)     (61)      (44)
             (211)  (2111)  (222)    (421)     (62)
                            (411)    (2221)    (422)
                            (2211)   (4111)    (431)
                            (21111)  (22111)   (611)
                                     (211111)  (2222)
                                               (4211)
                                               (22211)
                                               (41111)
                                               (221111)
                                               (2111111)
(End)

N. J. Fine, Basic Hypergeometric Series and Applications, Amer. Math. Soc., 1988; See p. 8, (7.323) and p. 39, Example 7.

Alois P. Heinz, Table of n, a(n) for n = 0..10000 (first 1000 terms from T. D. Noe)
George E. Andrews and David Newman, The Minimal Excludant in Integer Partitions, J. Int. Seq., Vol. 23 (2020), Article 20.2.3.
Arvind Ayyer, Hiranya Kishore Dey, and Digjoy Paul, How large is the character degree sum compared to the character table sum for a finite group?, arXiv:2406.06036 [math.RT], 2024. See p. 13.
Roland Bacher and Pierre De La Harpe, Conjugacy growth series of some infinitely generated groups, International Mathematics Research Notices, 2016, pp.1-53. (hal-01285685v2)
N. J. Fine, Problem 4314, Amer. Math. Monthly, Vol. 57, 1950, 421-423.
Mircea Merca, Combinatorial interpretations of a recent convolution for the number of divisors of a positive integer, Journal of Number Theory, Volume 160, March 2016, Pages 60-75, function p_e(n).
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A000701, A046682, A026838, A102462.
The Heinz numbers of these partitions are A028260.
The odd version is A027193.
The strict case is A067661.
The case of even sum as well as length is A236913 (the even bisection).
Other cases of even length:
- A024430 counts set partitions of even length.
- A034008 counts compositions of even length.
- A052841 counts ordered set partitions of even length.
- A174725 counts ordered factorizations of even length.
- A332305 counts strict compositions of even length
- A339846 counts factorizations of even length.
A000009 counts partitions into odd parts, ranked by A066208.
A026805 counts partitions whose least part is even.
A072233 counts partitions by sum and length.
A101708 counts partitions of even positive rank.
Cf. A000700, A026424, A058696, A096373, A244990, A300061.

f[n_] := Length[Select[IntegerPartitions[n], IntegerQ[First[#]/2] &]]; Table[f[n], {n, 1, 30}] (* Clark Kimberling, Mar 13 2012 *)
a[ n_] := SeriesCoefficient[ (1 + EllipticTheta[ 4, 0, x]) / (2 QPochhammer[ x]), {x, 0, n}]; (* Michael Somos, May 06 2015 *)
a[ n_] := If[ n < 0, 0, Length@Select[ IntegerPartitions[n], EvenQ[Length @ #] &]]; (* Michael Somos, May 06 2015 *)

{a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( sum( k=0, sqrtint(n), (-x)^k^2, A) / eta(x + A), n))}; /* Michael Somos, Aug 19 2006 */

my(q='q+O('q^66)); Vec( (1/eta(q)+eta(q)/eta(q^2))/2 ) \\ Joerg Arndt, Mar 23 2014

a(n) = (A000041(n) + (-1)^n * A000700(n))/2.
a(n) = p(n) - p(n-1) + p(n-4) - p(n-9) + ... where p(n) is the number of unrestricted partitions of n, A000041. [Fine] - David Callan, Mar 14 2004
From Bill Gosper, Jun 25 2005: (Start)
G.f.: A(q) = Sum_{n >= 0} a(n) q^n = 1 + q^2 + q^3 + 3*q^4 + 3*q^5 + 6*q^6 + ...
  = Sum_{n >= 0} q^(2*n)/(q; q)_{2*n}
  = ((Product_{k >= 1} 1/(1-q^k)) + (Product_{k >= 1} 1/(1+q^k)))/2.
Also, let B(q) = Sum_{n >= 0} A027193(n) q^n = q + q^2 + 2*q^3 + 2*q^4 + 4*q^5 + 5*q^6 + ...
Then B(q) = Sum_{n >= 0} q^(2*n+1)/(q; q){2*n+1} = ((Product{k >= 1} 1/(1-q^k)) - (Product_{k >= 1} 1/(1+q^k)))/2.
Also we have the following identity involving 2 X 2 matrices:
Product_{k >= 1} [ 1/(1-q^(2*k)), q^k/(1-q^(2*k)) ; q^k/(1-q^(2*k)), 1/(1-q^(2*k)) ]
  = [ A(q), B(q) ; B(q), A(q) ]. (End)
a(2*n) = A046682(2*n), a(2*n+1) = A000701(2*n+1); a(n) = A000041(n)-A027193(n). - Reinhard Zumkeller, Apr 22 2006
Expansion of (1 + phi(-q)) / (2 * f(-q)) where phi(), f() are Ramanujan theta functions. - Michael Somos, Aug 19 2006
G.f.: (Sum_{k>=0} (-1)^k * x^(k^2)) / (Product_{k>0} (1 - x^k)). - Michael Somos, Aug 19 2006
a(n) = A338914(n) + A096373(n). - Gus Wiseman, Jan 06 2021

Offset changed to 0 by Michael Somos, Jul 24 2012

A067661 Number of partitions of n into distinct parts such that number of parts is even.

Original entry on oeis.org

1, 0, 0, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7, 9, 11, 13, 16, 19, 23, 27, 32, 38, 45, 52, 61, 71, 83, 96, 111, 128, 148, 170, 195, 224, 256, 292, 334, 380, 432, 491, 556, 630, 713, 805, 908, 1024, 1152, 1295, 1455, 1632, 1829, 2049, 2291, 2560, 2859, 3189, 3554, 3959, 4404

Offset: 0

Naohiro Nomoto, Feb 23 2002

Ramanujan theta functions: phi(q) (A000122), chi(q) (A000700).

			G.f. = 1 + x^3 + x^4 + 2*x^5 + 2*x^6 + 3*x^7 + 3*x^8 + 4*x^9 + 5*x^10 + ...
From _Gus Wiseman_, Jan 08 2021: (Start)
The a(3) = 1 through a(14) = 11 partitions (A-D = 10..13):
  21   31   32   42   43   53   54   64     65     75     76     86
            41   51   52   62   63   73     74     84     85     95
                      61   71   72   82     83     93     94     A4
                                81   91     92     A2     A3     B3
                                     4321   A1     B1     B2     C2
                                            5321   5421   C1     D1
                                                   6321   5431   5432
                                                          6421   6431
                                                          7321   6521
                                                                 7421
                                                                 8321
(End)

B. C. Berndt, Ramanujan's Notebooks Part III, Springer-Verlag, see p. 18 Entry 9 Corollary (2).

Alois P. Heinz, Table of n, a(n) for n = 0..10000
Joerg Arndt, Matters Computational (The Fxtbook), end of section 16.4.2 "Partitions into distinct parts", pp.348ff
Mircea Merca, Combinatorial interpretations of a recent convolution for the number of divisors of a positive integer, Journal of Number Theory, Volume 160, March 2016, Pages 60-75, function q_e(n).
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Dominates A000009.
Numbers with these strict partitions as binary indices are A001969.
The non-strict case is A027187, ranked by A028260.
The Heinz numbers of these partitions are A030229.
The odd version is A067659, ranked by A030059.
The version for rank is A117192, with positive case A101708.
Other cases of even length:
- A024430 counts set partitions of even length.
- A034008 counts compositions of even length.
- A052841 counts ordered set partitions of even length.
- A174725 counts ordered factorizations of even length.
- A332305 counts strict compositions of even length
- A339846 counts factorizations of even length.
A008289 counts strict partitions by sum and length.
A026805 counts partitions whose least part is even.
Cf. A000700, A027193, A058696, A072233, A096373, A236913, A244990, A300061.

b:= proc(n, i, t) option remember; `if`(n>i*(i+1)/2, 0,
      `if`(n=0, t, add(b(n-i*j, i-1, abs(t-j)), j=0..min(n/i, 1))))
    end:
a:= n-> b(n$2, 1):
seq(a(n), n=0..80);  # Alois P. Heinz, Apr 01 2014

b[n_, i_, t_] := b[n, i, t] = If[n > i*(i + 1)/2, 0, If[n == 0, t, Sum[b[n - i*j, i - 1, Abs[t - j]], {j, 0, Min[n/i, 1]}]]]; a[n_] := b[n, n, 1]; Table[a[n], {n, 0, 80}] (* Jean-François Alcover, Jan 16 2015, after Alois P. Heinz *)
a[ n_] := SeriesCoefficient[ (QPochhammer[ -x, x] + QPochhammer[ x]) / 2, {x, 0, n}]; (* Michael Somos, May 06 2015 *)
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&EvenQ[Length[#]]&]],{n,0,30}] (* Gus Wiseman, Jan 08 2021 *)

{a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( (eta(x^2 + A) / eta(x + A) + eta(x + A)) / 2, n))}; /* Michael Somos, Feb 14 2006 */

N=66;  q='q+O('q^N);  S=1+2*sqrtint(N);
gf=sum(n=0, S, (n%2==0) * q^(n*(n+1)/2) / prod(k=1, n, 1-q^k ) );
Vec(gf)  \\ Joerg Arndt, Apr 01 2014

G.f.: A(q) = Sum_{n >= 0} a(n) q^n = 1 + q^3 + q^4 + 2 q^5 + 2 q^6 + 3 q^7 + ... = Sum_{n >= 0} q^(n(2n+1))/(q; q){2n} [_Bill Gosper, Jun 25 2005]
Also, let B(q) = Sum_{n >= 0} A067659(n) q^n = q + q^2 + q^3 + q^4 + q^5 + 2 q^6 + ... Then B(q) = Sum_{n >= 0} q^((n+1)(2n+1))/(q; q)_{2n+1}.
Also we have the following identity involving 2 X 2 matrices:
Prod_{k >= 1} [ 1, q^k; q^k, 1 ] = [ A(q), B(q); B(q), A(q) ] [Bill Gosper, Jun 25 2005]
a(n) = (A000009(n)+A010815(n))/2. - Vladeta Jovovic, Feb 24 2002
Expansion of (1 + phi(-x)) / (2*chi(-x)) in powers of x where phi(), chi() are Ramanujan theta functions. - Michael Somos, Feb 14 2006
a(n) + A067659(n) = A000009(n). - R. J. Mathar, Jun 18 2016
a(n) ~ exp(Pi*sqrt(n/3)) / (8*3^(1/4)*n^(3/4)). - Vaclav Kotesovec, May 24 2018
A000009(n) = a(n) + A067659(n). - Gus Wiseman, Jan 09 2021
From Peter Bala, Feb 05 2021: (Start)
G.f.: A(x) = (1/2)*((Product_{n >= 0} 1 + x^n) + (Product_{n >= 0} 1 - x^n)).
Let B(x) denote the g.f. of A067659. Then
A(x)^2 - B(x)^2 = A(x^2) - B(x^2) = Product_{n >= 1} 1 - x^(2*n) = Sum_{n in Z} (-1)^n*x^(n*(3*n+1)).
A(x) + B(x) is the g.f. of A000009.
1/(A(x) - B(x)) is the g.f. of A000041.
(A(x) + B(x))/(A(x) - B(x)) is the g.f. of A015128.
A(x)/(A(x) + B(x)) = Sum_{n >= 0} (-1)^n*x^n^2 = (1 + theta_3(-x))/2.
B(x)/(A(x) - B(x)) is the g.f. of A014968.
A(x)/(A(x^2) - B(x^2)) is the g.f. of A027187.
B(x)/(A(x^2) - B(x^2)) is the g.f. of A027193. (End)

A064173 Number of partitions of n with positive rank.

Original entry on oeis.org

0, 1, 1, 2, 3, 5, 6, 10, 13, 19, 25, 35, 45, 62, 80, 106, 136, 178, 225, 291, 366, 466, 583, 735, 912, 1140, 1407, 1743, 2140, 2634, 3214, 3932, 4776, 5807, 7022, 8495, 10225, 12313, 14762, 17696, 21136, 25236, 30030, 35722, 42367, 50216, 59368, 70138, 82665

Offset: 1

Vladeta Jovovic, Sep 19 2001

nonn

The rank of a partition is the largest summand minus the number of summands.
Also number of partitions of n with negative rank. - Omar E. Pol, Mar 05 2012
Column 1 of A208478. - Omar E. Pol, Mar 11 2012
Number of partitions p of n such that max(max(p), number of parts of p) is not a part of p. - Clark Kimberling, Feb 28 2014
The sequence enumerates the semigroup of partitions of positive rank for each number n. The semigroup is a subsemigroup of the monoid of partitions of nonnegative rank under the binary operation "*": Let A be the positive rank partition (a1,...,ak) where ak > k, and let B=(b1,...bj) with bj > j. Then let A*B be the partition (a1b1,...,a1bj,...,akb1,...,akbj), which has akbj > kj, thus having positive rank. For example, the partition (2,3,4) of 9 has rank 1, and its product with itself is (4,6,6,8,8,9,12,12,16) of 81, which has rank 7. A similar situation holds for partitions of negative rank--they are a subsemigroup of the monoid of nonpositive rank partitions. - Richard Locke Peterson, Jul 15 2018

			a(20) = p(18) - p(13) + p(5) = 385 - 101 + 7 = 291.
From _Gus Wiseman_, Feb 09 2021: (Start)
The a(2) = 1 through a(9) = 13 partitions of positive rank:
  (2)  (3)  (4)   (5)   (6)    (7)    (8)     (9)
            (31)  (32)  (33)   (43)   (44)    (54)
                  (41)  (42)   (52)   (53)    (63)
                        (51)   (61)   (62)    (72)
                        (411)  (421)  (71)    (81)
                               (511)  (422)   (432)
                                      (431)   (441)
                                      (521)   (522)
                                      (611)   (531)
                                      (5111)  (621)
                                              (711)
                                              (5211)
                                              (6111)
(End)

Alois P. Heinz, Table of n, a(n) for n = 1..10000
F. J. Dyson, Some guesses in the theory of partitions, Eureka (Cambridge) 8 (1944), 10-15.
FindStat, St000145: The Dyson rank of a partition
Mircea Merca, Rank partition functions and truncated theta identities, arXiv:2006.07705 [math.CO], 2020.

Note: A-numbers of ranking sequences are in parentheses below.
The negative-rank version is also A064173 (A340788).
The case of odd positive rank is A101707 (A340604).
The case of even positive rank is A101708 (A340605).
These partitions are ranked by (A340787).
A063995/A105806 count partitions by rank.
A072233 counts partitions by sum and length.
A168659 counts partitions whose length is a multiple of the greatest part.
A200750 counts partitions whose length and greatest part are coprime.
- Rank -
A064174 counts partitions of nonnegative/nonpositive rank (A324562/A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A340601 counts partitions of even rank (A340602).
A340692 counts partitions of odd rank (A340603).
- Balance -
A047993 counts balanced partitions (A106529).
A340599 counts alt-balanced factorizations.
A340653 counts balanced factorizations.
Cf. A003114, A006141, A039900, A096401, A117193, A117409, A143773, A324516, A324518, A324520.

A064173 := proc(n)
    a := 0 ;
    for p in combinat[partition](n) do
        r := max(op(p))-nops(p) ;
        if r > 0 then
            a := a+1 ;
        end if;
    end do:
    a ;
end proc:
seq(A064173(n),n=0..40) ;# Emeric Deutsch, Dec 11 2004

Table[Count[IntegerPartitions[n], q_ /; First[q] > Length[q]], {n, 24}] (* Clark Kimberling, Feb 12 2014 *)
Table[Count[IntegerPartitions[n], p_ /; ! MemberQ[p, Max[Max[p], Length[p]]]], {n, 20}] (* Clark Kimberling, Feb 28 2014 *)
P = PartitionsP;
a[n_] := (P[n] - Sum[-(-1)^k (P[n - (3k^2 - k)/2] - P[n - (3k^2 + k)/2]), {k, 1, Floor[(1 + Sqrt[1 + 24n])/6]}])/2;
a /@ Range[48] (* Jean-François Alcover, Jan 11 2020, after Wouter Meeussen in A047993 *)

my(N=66, x='x+O('x^N)); concat(0, Vec(sum(k=1, N, x^k*prod(j=1, k, (1-x^(k+j-2))/(1-x^j))))) \\ Seiichi Manyama, Jan 25 2022

a(n) = (A000041(n) - A047993(n))/2.
a(n) = p(n-2) - p(n-7) + p(n-15) - ... - (-1)^k*p(n-(3*k^2+k)/2) + ..., where p() is A000041(). - Vladeta Jovovic, Aug 04 2004
G.f.: Product_{k>=1} (1/(1-q^k)) * Sum_{k>=1} ( (-1)^k * (-q^(3*k^2/2+k/2))) (conjectured). - Thomas Baruchel, May 12 2018
G.f.: Sum_{k>=1} x^k * Product_{j=1..k} (1-x^(k+j-2))/(1-x^j). - Seiichi Manyama, Jan 25 2022
a(n)+A064174(n) = A000041(n). - R. J. Mathar, Feb 22 2023

A340604 Heinz numbers of integer partitions of odd positive rank.

Original entry on oeis.org

3, 7, 10, 13, 15, 19, 22, 25, 28, 29, 33, 34, 37, 42, 43, 46, 51, 52, 53, 55, 61, 62, 63, 69, 70, 71, 76, 77, 78, 79, 82, 85, 88, 89, 93, 94, 98, 101, 105, 107, 113, 114, 115, 116, 117, 118, 119, 121, 123, 130, 131, 132, 134, 136, 139, 141, 146, 147, 148, 151

Offset: 1

Gus Wiseman, Jan 21 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its number of parts. The rank of an empty partition is 0.

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of partitions with their Heinz numbers begins:
      3: (2)         46: (9,1)       82: (13,1)
      7: (4)         51: (7,2)       85: (7,3)
     10: (3,1)       52: (6,1,1)     88: (5,1,1,1)
     13: (6)         53: (16)        89: (24)
     15: (3,2)       55: (5,3)       93: (11,2)
     19: (8)         61: (18)        94: (15,1)
     22: (5,1)       62: (11,1)      98: (4,4,1)
     25: (3,3)       63: (4,2,2)    101: (26)
     28: (4,1,1)     69: (9,2)      105: (4,3,2)
     29: (10)        70: (4,3,1)    107: (28)
     33: (5,2)       71: (20)       113: (30)
     34: (7,1)       76: (8,1,1)    114: (8,2,1)
     37: (12)        77: (5,4)      115: (9,3)
     42: (4,2,1)     78: (6,2,1)    116: (10,1,1)
     43: (14)        79: (22)       117: (6,2,2)

FindStat, St000145: The Dyson rank of a partition

Note: Heinz numbers are given in parentheses below.
These partitions are counted by A101707.
Allowing negative ranks gives A340692, counted by A340603.
The even version is A340605, counted by A101708.
The not necessarily odd case is A340787, counted by A064173.
A001222 gives number of prime indices.
A061395 gives maximum prime index.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A064173 counts partitions of negative rank (A340788).
A064174 counts partitions of nonnegative rank (A324562).
A064174 (also) counts partitions of nonpositive rank (A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A340653 counts balanced factorizations.
- Odd -
A000009 counts partitions into odd parts (A066208).
A027193 counts partitions of odd length (A026424).
A027193 (also) counts partitions of odd maximum (A244991).
A058695 counts partitions of odd numbers (A300063).
A067659 counts strict partitions of odd length (A030059).
A160786 counts odd-length partitions of odd numbers (A300272).
A339890 counts factorizations of odd length.
A340101 counts factorizations into odd factors.
A340102 counts odd-length factorizations into odd factors.
A340385 counts partitions of odd length and maximum (A340386).
Cf. A001221, A006141, A056239, A112798, A168659, A200750, A316413, A325134, A340601, A340602, A340608, A340609, A340610.

rk[n_]:=PrimePi[FactorInteger[n][[-1,1]]]-PrimeOmega[n];
Select[Range[100],OddQ[rk[#]]&&rk[#]>0&]

A061395(a(n)) - A001222(a(n)) is odd and positive.

A340604 \/ A340605 = A340787.

A340601 Number of integer partitions of n of even rank.

Original entry on oeis.org

1, 1, 0, 3, 1, 5, 3, 11, 8, 18, 16, 34, 33, 57, 59, 98, 105, 159, 179, 262, 297, 414, 478, 653, 761, 1008, 1184, 1544, 1818, 2327, 2750, 3480, 4113, 5137, 6078, 7527, 8899, 10917, 12897, 15715, 18538, 22431, 26430, 31805, 37403, 44766, 52556, 62620, 73379

Offset: 0

Gus Wiseman, Jan 21 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its number of parts. For this sequence, the rank of an empty partition is 0.

			The a(1) = 1 through a(9) = 18 partitions (empty column indicated by dot):
  (1)  .  (3)    (22)  (5)      (42)    (7)        (44)      (9)
          (21)         (41)     (321)   (43)       (62)      (63)
          (111)        (311)    (2211)  (61)       (332)     (81)
                       (2111)           (322)      (521)     (333)
                       (11111)          (331)      (2222)    (522)
                                        (511)      (4211)    (531)
                                        (2221)     (32111)   (711)
                                        (4111)     (221111)  (4221)
                                        (31111)              (4311)
                                        (211111)             (6111)
                                        (1111111)            (32211)
                                                             (33111)
                                                             (51111)
                                                             (222111)
                                                             (411111)
                                                             (3111111)
                                                             (21111111)
                                                             (111111111)

Alois P. Heinz, Table of n, a(n) for n = 0..10000
Freeman J. Dyson, A new symmetry of partitions, Journal of Combinatorial Theory 7.1 (1969): 56-61.
FindStat, St000145: The Dyson rank of a partition

Note: Heinz numbers are given in parentheses below.
The positive case is A101708 (A340605).
The Heinz numbers of these partitions are A340602.
The odd version is A340692 (A340603).
- Rank -
A047993 counts partitions of rank 0 (A106529).
A072233 counts partitions by sum and length.
A101198 counts partitions of rank 1 (A325233).
A101707 counts partitions of odd positive rank (A340604).
A101708 counts partitions of even positive rank (A340605).
A257541 gives the rank of the partition with Heinz number n.
A340653 counts factorizations of rank 0.
- Even -
A024430 counts set partitions of even length.
A027187 counts partitions of even length (A028260).
A027187 (also) counts partitions of even maximum (A244990).
A034008 counts compositions of even length.
A035363 counts partitions into even parts (A066207).
A052841 counts ordered set partitions of even length.
A058696 counts partitions of even numbers (A300061).
A067661 counts strict partitions of even length (A030229).
A236913 counts even-length partitions of even numbers (A340784).
A339846 counts factorizations of even length.
Cf. A000041, A006141, A039900, A064174, A067538, A117409, A200750, A324516.

b:= proc(n, i, r) option remember; `if`(n=0, 1-max(0, r),
      `if`(i<1, 0, b(n, i-1, r) +b(n-i, min(n-i, i), 1-
      `if`(r<0, irem(i, 2), r))))
    end:
a:= n-> b(n$2, -1):
seq(a(n), n=0..55);  # Alois P. Heinz, Jan 22 2021

Table[If[n==0,1,Length[Select[IntegerPartitions[n],EvenQ[Max[#]-Length[#]]&]]],{n,0,30}]
(* Second program: *)
b[n_, i_, r_] := b[n, i, r] = If[n == 0, 1 - Max[0, r], If[i < 1, 0, b[n, i - 1, r] + b[n - i, Min[n - i, i], 1 - If[r < 0, Mod[i, 2], r]]]];
a[n_] := b[n, n, -1];
a /@ Range[0, 55] (* Jean-François Alcover, May 10 2021, after Alois P. Heinz *)

p_q(k) = {prod(j=1, k, 1-q^j); }
GB_q(N, M)= {if(N>=0 && M>=0,  p_q(N+M)/(p_q(M)*p_q(N)), 0 ); }
A_q(N) = {my(q='q+O('q^N), g=1+sum(i=1,N, sum(j=1,N/i, q^(i*j) * ( ((1/2)*(1+(-1)^(i+j))) + sum(k=1,N-(i*j), ((q^k)*GB_q(k,i-2)) * ((1/2)*(1+(-1)^(i+j+k)))))))); Vec(g)}
A_q(50) \\ John Tyler Rascoe, Apr 15 2024

G.f.: 1 + Sum_{i, j>0} q^(i*j) * ( (1+(-1)^(i+j))/2 + Sum_{k>0} q^k * q_binomial(k,i-2) * (1+(-1)^(i+j+k))/2 ). - John Tyler Rascoe, Apr 15 2024

a(n) ~ exp(Pi*sqrt(2*n/3)) / (8*n*sqrt(3)). - Vaclav Kotesovec, Apr 17 2024

A101707 Number of partitions of n having positive odd rank (the rank of a partition is the largest part minus the number of parts).

Original entry on oeis.org

0, 0, 1, 0, 2, 1, 4, 2, 7, 6, 13, 11, 22, 22, 38, 39, 63, 69, 103, 114, 165, 189, 262, 301, 407, 475, 626, 733, 950, 1119, 1427, 1681, 2118, 2503, 3116, 3678, 4539, 5360, 6559, 7735, 9400, 11076, 13372, 15728, 18886, 22184, 26501, 31067, 36947, 43242, 51210, 59818, 70576, 82291, 96750

Offset: 0

Emeric Deutsch, Dec 12 2004

nonn

a(n) + A101708(n) = A064173(n).

			a(7)=2 because the only partitions of 7 with positive odd rank are 421 (rank=1) and 52 (rank=3).
From _Gus Wiseman_, Feb 07 2021: (Start)
Also the number of integer partitions of n into an even number of parts, the greatest of which is odd. For example, the a(2) = 1 through a(10) = 13 partitions (empty column indicated by dot) are:
  11   .  31     32   33       52     53         54       55
          1111        51       3211   71         72       73
                      3111            3221       3222     91
                      111111          3311       3321     3322
                                      5111       5211     3331
                                      311111     321111   5221
                                      11111111            5311
                                                          7111
                                                          322111
                                                          331111
                                                          511111
                                                          31111111
                                                          1111111111
Also the number of integer partitions of n into an odd number of parts, the greatest of which is even. For example, the a(2) = 1 through a(10) = 13 partitions (empty column indicated by dot, A = 10) are:
  2   .  4     221   6       421     8         432       A
         211         222     22111   422       441       433
                     411             431       621       442
                     21111           611       22221     622
                                     22211     42111     631
                                     41111     2211111   811
                                     2111111             22222
                                                         42211
                                                         43111
                                                         61111
                                                         2221111
                                                         4111111
                                                         211111111
(End)

George E. Andrews, The Theory of Partitions, Addison-Wesley, Reading, Mass., 1976.

Alois P. Heinz, Table of n, a(n) for n = 0..10000
FindStat, St000145: The Dyson rank of a partition

Note: A-numbers of ranking sequences are in parentheses below.
The even-rank version is A101708 (A340605).
The even- but not necessarily positive-rank version is A340601 (A340602).
The Heinz numbers of these partitions are (A340604).
Allowing negative odd ranks gives A340692 (A340603).
- Rank -
A047993 counts balanced (rank zero) partitions (A106529).
A064173 counts partitions of positive/negative rank (A340787/A340788).
A064174 counts partitions of nonpositive/nonnegative rank (A324521/A324562).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
- Odd -
A000009 counts partitions into odd parts (A066208).
A026804 counts partitions whose least part is odd.
A027193 counts partitions of odd length/maximum (A026424/A244991).
A058695 counts partitions of odd numbers (A300063).
A339890 counts factorizations of odd length.
A340385 counts partitions of odd length and maximum (A340386).
Cf. A000041, A027187, A101709, A101199, A101200, A117409, A200750.

b:= proc(n, i, r) option remember; `if`(n=0, max(0, r),
      `if`(i<1, 0, b(n, i-1, r) +b(n-i, min(n-i, i), 1-
      `if`(r<0, irem(i, 2), r))))
    end:
a:= n-> b(n$2, -1)/2:
seq(a(n), n=0..55);  # Alois P. Heinz, Jan 29 2021

Table[Length[Select[IntegerPartitions[n],EvenQ[Length[#]]&&OddQ[Max[#]]&]],{n,0,30}] (* Gus Wiseman, Feb 10 2021 *)
b[n_, i_, r_] := b[n, i, r] = If[n == 0, Max[0, r],
     If[i < 1, 0, b[n, i - 1, r] + b[n - i, Min[n - i, i], 1 -
     If[r < 0, Mod[i, 2], r]]]];
a[n_] := b[n, n, -1]/2;
a /@ Range[0, 55] (* Jean-François Alcover, May 23 2021, after Alois P. Heinz *)

a(n) = (A000041(n) - A000025(n))/4. - Vladeta Jovovic, Dec 14 2004
G.f.: Sum((-1)^(k+1)*x^((3*k^2+k)/2)/(1+x^k), k=1..infinity)/Product(1-x^k, k=1..infinity). - Vladeta Jovovic, Dec 20 2004
a(n) = A340692(n)/2. - Gus Wiseman, Feb 07 2021

More terms from Joerg Arndt, Oct 07 2012

a(0)=0 prepended by Alois P. Heinz, Jan 29 2021

A340602 Heinz numbers of integer partitions of even rank.

Original entry on oeis.org

1, 2, 5, 6, 8, 9, 11, 14, 17, 20, 21, 23, 24, 26, 30, 31, 32, 35, 36, 38, 39, 41, 44, 45, 47, 49, 50, 54, 56, 57, 58, 59, 65, 66, 67, 68, 73, 74, 75, 80, 81, 83, 84, 86, 87, 91, 92, 95, 96, 97, 99, 102, 103, 104, 106, 109, 110, 111, 120, 122, 124, 125, 126, 127

Offset: 1

Gus Wiseman, Jan 21 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is 0.

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of partitions with their Heinz numbers begins:
     1: ()           31: (11)           58: (10,1)
     2: (1)          32: (1,1,1,1,1)    59: (17)
     5: (3)          35: (4,3)          65: (6,3)
     6: (2,1)        36: (2,2,1,1)      66: (5,2,1)
     8: (1,1,1)      38: (8,1)          67: (19)
     9: (2,2)        39: (6,2)          68: (7,1,1)
    11: (5)          41: (13)           73: (21)
    14: (4,1)        44: (5,1,1)        74: (12,1)
    17: (7)          45: (3,2,2)        75: (3,3,2)
    20: (3,1,1)      47: (15)           80: (3,1,1,1,1)
    21: (4,2)        49: (4,4)          81: (2,2,2,2)
    23: (9)          50: (3,3,1)        83: (23)
    24: (2,1,1,1)    54: (2,2,2,1)      84: (4,2,1,1)
    26: (6,1)        56: (4,1,1,1)      86: (14,1)
    30: (3,2,1)      57: (8,2)          87: (10,2)

FindStat, St000145: The Dyson rank of a partition

Taking only length gives A001222.
Taking only maximum part gives A061395.
These partitions are counted by A340601.
The complement is A340603.
The case of positive rank is A340605.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A101198 counts partitions of rank 1 (A325233).
A101707 counts partitions of odd positive rank (A340604).
A101708 counts partitions of even positive rank (A340605).
A257541 gives the rank of the partition with Heinz number n.
A324516 counts partitions with rank = maximum minus minimum part (A324515).
A340653 counts factorizations of rank 0.
A340692 counts partitions of odd rank (A340603).
- Even -
A024430 counts set partitions of even length.
A027187 counts partitions of even length (A028260).
A027187 (also) counts partitions of even maximum (A244990).
A034008 counts compositions of even length.
A035363 counts partitions into even parts (A066207).
A052841 counts ordered set partitions of even length.
A058696 counts partitions of even numbers (A300061).
A067661 counts strict partitions of even length (A030229).
A236913 counts even-length partitions of even numbers (A340784).
A339846 counts factorizations of even length.
Cf. A000041, A006141, A056239, A072233, A112798, A168659, A325134, A326836, A326845, A340386, A340387.

Select[Range[100],EvenQ[PrimePi[FactorInteger[#][[-1,1]]]-PrimeOmega[#]]&]

Either n = 1 or A061395(n) - A001222(n) is even.

A340692 Number of integer partitions of n of odd rank.

Original entry on oeis.org

0, 0, 2, 0, 4, 2, 8, 4, 14, 12, 26, 22, 44, 44, 76, 78, 126, 138, 206, 228, 330, 378, 524, 602, 814, 950, 1252, 1466, 1900, 2238, 2854, 3362, 4236, 5006, 6232, 7356, 9078, 10720, 13118, 15470, 18800, 22152, 26744, 31456, 37772, 44368, 53002, 62134, 73894

Offset: 0

Gus Wiseman, Jan 29 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is undefined.

			The a(0) = 0 through a(9) = 12 partitions (empty columns indicated by dots):
  .  .  (2)   .  (4)     (32)   (6)       (52)     (8)         (54)
        (11)     (31)    (221)  (33)      (421)    (53)        (72)
                 (211)          (51)      (3211)   (71)        (432)
                 (1111)         (222)     (22111)  (422)       (441)
                                (411)              (431)       (621)
                                (3111)             (611)       (3222)
                                (21111)            (3221)      (3321)
                                (111111)           (3311)      (5211)
                                                   (5111)      (22221)
                                                   (22211)     (42111)
                                                   (41111)     (321111)
                                                   (311111)    (2211111)
                                                   (2111111)
                                                   (11111111)

Freeman J. Dyson, A new symmetry of partitions, Journal of Combinatorial Theory 7.1 (1969): 56-61.
FindStat, St000145: The Dyson rank of a partition

Note: A-numbers of Heinz-number sequences are in parentheses below.
The case of length/maximum instead of rank is A027193 (A026424/A244991).
The case of odd positive rank is A101707 is (A340604).
The strict case is A117193.
The even version is A340601 (A340602).
The Heinz numbers of these partitions are (A340603).
A072233 counts partitions by sum and length.
A168659 counts partitions whose length is divisible by maximum.
A200750 counts partitions whose length and maximum are relatively prime.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A063995/A105806 count partitions by Dyson rank.
A064173 counts partitions of positive/negative rank (A340787/A340788).
A064174 counts partitions of nonpositive/nonnegative rank (A324521/A324562).
A101198 counts partitions of rank 1 (A325233).
A101708 counts partitions of even positive rank (A340605).
A257541 gives the rank of the partition with Heinz number n.
A324520 counts partitions with rank equal to least part (A324519).
- Odd -
A000009 counts partitions into odd parts (A066208).
A026804 counts partitions whose least part is odd.
A058695 counts partitions of odd numbers (A300063).
A067659 counts strict partitions of odd length (A030059).
A160786 counts odd-length partitions of odd numbers (A300272).
A339890 counts factorizations of odd length.
A340385 counts partitions of odd length and maximum (A340386).
Cf. A003114, A006141, A027187, A039900, A067538, A096401, A117409, A143773, A324518, A325134, A340828, A340854/A340855.

Table[Length[Select[IntegerPartitions[n],OddQ[Max[#]-Length[#]]&]],{n,0,30}]

Having odd rank is preserved under conjugation, and self-conjugate partitions cannot have odd rank, so a(n) = 2*A101707(n) for n > 0.

A340788 Heinz numbers of integer partitions of negative rank.

Original entry on oeis.org

4, 8, 12, 16, 18, 24, 27, 32, 36, 40, 48, 54, 60, 64, 72, 80, 81, 90, 96, 100, 108, 112, 120, 128, 135, 144, 150, 160, 162, 168, 180, 192, 200, 216, 224, 225, 240, 243, 250, 252, 256, 270, 280, 288, 300, 320, 324, 336, 352, 360, 375, 378, 384, 392, 400, 405

Offset: 1

Gus Wiseman, Jan 29 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

The Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is undefined.

			The sequence of partitions together with their Heinz numbers begins:
      4: (1,1)             80: (3,1,1,1,1)
      8: (1,1,1)           81: (2,2,2,2)
     12: (2,1,1)           90: (3,2,2,1)
     16: (1,1,1,1)         96: (2,1,1,1,1,1)
     18: (2,2,1)          100: (3,3,1,1)
     24: (2,1,1,1)        108: (2,2,2,1,1)
     27: (2,2,2)          112: (4,1,1,1,1)
     32: (1,1,1,1,1)      120: (3,2,1,1,1)
     36: (2,2,1,1)        128: (1,1,1,1,1,1,1)
     40: (3,1,1,1)        135: (3,2,2,2)
     48: (2,1,1,1,1)      144: (2,2,1,1,1,1)
     54: (2,2,2,1)        150: (3,3,2,1)
     60: (3,2,1,1)        160: (3,1,1,1,1,1)
     64: (1,1,1,1,1,1)    162: (2,2,2,2,1)
     72: (2,2,1,1,1)      168: (4,2,1,1,1)

Freeman J. Dyson, A new symmetry of partitions, Journal of Combinatorial Theory 7.1 (1969): 56-61.
FindStat, St000145: The Dyson rank of a partition

Note: A-numbers of Heinz-number sequences are in parentheses below.
These partitions are counted by A064173.
The odd case is A101707 is (A340929).
The even case is A101708 is (A340930).
The positive version is (A340787).
A001222 counts prime factors.
A061395 selects the maximum prime index.
A072233 counts partitions by sum and length.
A168659 counts partitions whose length is divisible by maximum.
A200750 counts partitions whose length and maximum are relatively prime.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A063995/A105806 count partitions by Dyson rank.
A064174 counts partitions of nonnegative/nonpositive rank (A324562/A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A324518 counts partitions with rank equal to greatest part (A324517).
A324520 counts partitions with rank equal to least part (A324519).
A340601 counts partitions of even rank (A340602), with strict case A117192.
A340692 counts partitions of odd rank (A340603), with strict case A117193.
Cf. A003114, A006141, A039900, A056239, A096401, A112798, A117409, A316413, A325134, A326845, A340604, A340605, A340828.

Select[Range[2,100],PrimePi[FactorInteger[#][[-1,1]]]

For all terms A061395(a(n)) < A001222(a(n)).

A340605 Heinz numbers of integer partitions of even positive rank.

Original entry on oeis.org

5, 11, 14, 17, 21, 23, 26, 31, 35, 38, 39, 41, 44, 47, 49, 57, 58, 59, 65, 66, 67, 68, 73, 74, 83, 86, 87, 91, 92, 95, 97, 99, 102, 103, 104, 106, 109, 110, 111, 122, 124, 127, 129, 133, 137, 138, 142, 143, 145, 149, 152, 153, 154, 156, 157, 158, 159, 164, 165

Offset: 1

Gus Wiseman, Jan 21 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its number of parts. The rank of an empty partition is 0.

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of partitions with their Heinz numbers begins:
      5: (3)         57: (8,2)       97: (25)
     11: (5)         58: (10,1)      99: (5,2,2)
     14: (4,1)       59: (17)       102: (7,2,1)
     17: (7)         65: (6,3)      103: (27)
     21: (4,2)       66: (5,2,1)    104: (6,1,1,1)
     23: (9)         67: (19)       106: (16,1)
     26: (6,1)       68: (7,1,1)    109: (29)
     31: (11)        73: (21)       110: (5,3,1)
     35: (4,3)       74: (12,1)     111: (12,2)
     38: (8,1)       83: (23)       122: (18,1)
     39: (6,2)       86: (14,1)     124: (11,1,1)
     41: (13)        87: (10,2)     127: (31)
     44: (5,1,1)     91: (6,4)      129: (14,2)
     47: (15)        92: (9,1,1)    133: (8,4)
     49: (4,4)       95: (8,3)      137: (33)

FindStat, St000145: The Dyson rank of a partition

Note: Heinz numbers are given in parentheses below.
Allowing any positive rank gives A064173 (A340787).
The odd version is counted by A101707 (A340604).
These partitions are counted by A101708.
The not necessarily positive case is counted by A340601 (A340602).
A001222 counts prime indices.
A061395 gives maximum prime index.
A072233 counts partitions by sum and length.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A064173 counts partitions of negative rank (A340788).
A064174 counts partitions of nonnegative rank (A324562).
A064174 (also) counts partitions of nonpositive rank (A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A340692 counts partitions of odd rank (A340603).
- Even -
A027187 counts partitions of even length (A028260).
A027187 (also) counts partitions of even maximum (A244990).
A035363 counts partitions into even parts (A066207).
A058696 counts partitions of even numbers (A300061).
A067661 counts strict partitions of even length (A030229).
A339846 counts factorizations of even length.
Cf. A006141, A024430, A056239, A112798, A340387, A340598, A340600, A340608, A340609, A340610, A340653.

rk[n_]:=PrimePi[FactorInteger[n][[-1,1]]]-PrimeOmega[n];
Select[Range[100],EvenQ[rk[#]]&&rk[#]>0&]

A061395(a(n)) - A001222(a(n)) is even and positive.

A340604 \/ A340605 = A340787.

cp's OEIS Frontend

A027187 Number of partitions of n into an even number of parts.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

Extensions

A067661 Number of partitions of n into distinct parts such that number of parts is even.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

Formula

A064173 Number of partitions of n with positive rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A340604 Heinz numbers of integer partitions of odd positive rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A340601 Number of integer partitions of n of even rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A101707 Number of partitions of n having positive odd rank (the rank of a partition is the largest part minus the number of parts).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica