A101709 -id:A101709 - cp's OEIS frontend

A101198 Number of partitions of n with rank 1 (the rank of a partition is the largest part minus the number of parts).

0, 1, 0, 1, 1, 2, 1, 3, 3, 5, 5, 8, 8, 13, 14, 20, 23, 31, 35, 48, 55, 72, 84, 108, 126, 160, 187, 233, 275, 340, 398, 489, 574, 697, 819, 988, 1158, 1390, 1627, 1941, 2271, 2696, 3145, 3721, 4335, 5104, 5938, 6967, 8088, 9462, 10964, 12783

Offset: 1

Emeric Deutsch, Dec 12 2004

nonn

Column k=1 in the triangle A063995.

			a(6)=2 because the 11 partitions 6,51,42,411,33,321,3111,222,2211,21111,111111 have ranks 5,3,2,1,1,0,-1,-1,-2,-3,-5, respectively.

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

Seiichi Manyama, Table of n, a(n) for n = 1..10000

Cf. A000041, A063995.

Cf. A101198-A101200, A101707-A101709.

with(combinat): for n from 1 to 35 do P:=partition(n): c:=0: for j from 1 to nops(P) do if P[j][nops(P[j])]-nops(P[j])=1 then c:=c+1 else c:=c fi od: a[n]:=c: od: seq(a[n],n=1..35);

Table[Count[IntegerPartitions[n],?(Max[#]-Length[#]==1&)],{n,60}] (* _Harvey P. Dale, Nov 29 2014 *)

G.f. for the number of partitions of n with rank r is Sum((-1)^k*x^(r*k)*(x^((3*k^2+k)/2)-x^((3*k^2-k)/2)), k=1..infinity)/Product(1-x^k, k=1..infinity). - Vladeta Jovovic, Dec 20 2004
Also Sum(x^(2*n+r+1)*Product((1-x^(2*n+r+1-k))/(1-x^k),k=1..n),n=0..infinity). - Vladeta Jovovic, May 05 2008
a(n) ~ Pi * exp(Pi*sqrt(2*n/3)) / (3 * 2^(9/2) * n^(3/2)). - Vaclav Kotesovec, May 26 2023

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

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

Original entry on oeis.org

0, 0, 0, 1, 0, 2, 1, 4, 3, 7, 6, 14, 13, 23, 24, 41, 43, 67, 75, 111, 126, 177, 204, 282, 328, 437, 514, 674, 793, 1021, 1207, 1533, 1814, 2273, 2691, 3344, 3956, 4865, 5754, 7027, 8296, 10060, 11864, 14302, 16836, 20183, 23715, 28301, 33191, 39423, 46152, 54607, 63794, 75200, 87687, 103018

Offset: 0

Emeric Deutsch, Dec 12 2004

nonn

			a(7)=4 because the only partitions of 7 with positive even rank are 7 (rank=6), 61 (rank=4), 511 (rank=2) and 43 (rank=2).

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

Cf. A000041, A101707, A064173.

Cf. A101198-A101200, A101709.

Table[Count[Max[#]-Length[#]&/@IntegerPartitions[n],?(EvenQ[#] && Positive[#]&)], {n,50}] (* _Harvey P. Dale, Feb 26 2012 *)

G.f.: Sum((-1)^(k+1)*x^((3*k^2+3*k)/2)/(1+x^k), k>=1)/Product(1-x^k, k>=1). - Vladeta Jovovic, Dec 20 2004

a(n) = A064173(n) - A101707(n) for n >= 1.

More terms from Joerg Arndt, Oct 07 2012

Offset changed to 0 by Georg Fischer, Dec 23 2023

A117192 Number of partitions of n into distinct parts with an even rank.

Original entry on oeis.org

1, 0, 2, 0, 2, 2, 3, 2, 4, 6, 6, 7, 8, 12, 14, 16, 18, 24, 26, 32, 38, 46, 52, 60, 70, 83, 96, 112, 128, 148, 170, 194, 224, 256, 293, 334, 380, 432, 492, 556, 630, 712, 804, 908, 1026, 1152, 1296, 1454, 1632, 1828, 2048, 2292, 2560, 2858, 3190, 3554, 3959, 4404

Offset: 1

Reinhard Zumkeller, Mar 03 2006

nonn

Cf. A000009, A003406, A101709, A101708, A117193, A117194, A117195.

a[n_] := Count[IntegerPartitions[n], q_ /; EvenQ[First[q] - Length[q]] && Length[q] == Length[Union[q]]];
Array[a, 60] (* Jean-François Alcover, Oct 06 2021 *)

a(n) = Sum(A117195(n,k)*(1 - k mod 2): 0<=k

a(n) = A117194(n)+A010054(n) = A000009(n)-A117193(n) = A117193(n)+A003406(n).

Showing 1-4 of 4 results.

cp's OEIS Frontend

A101198 Number of partitions of n with rank 1 (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

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

Formula

Extensions

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

Views

Author

Keywords

Examples

References

Crossrefs

Programs

Mathematica

Formula

Extensions

A117192 Number of partitions of n into distinct parts with an even rank.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula