A360687 -id:A360687 - cp's OEIS frontend

A362608 Number of integer partitions of n having a unique mode.

0, 1, 2, 2, 4, 5, 7, 11, 16, 21, 29, 43, 54, 78, 102, 131, 175, 233, 295, 389, 490, 623, 794, 1009, 1255, 1579, 1967, 2443, 3016, 3737, 4569, 5627, 6861, 8371, 10171, 12350, 14901, 18025, 21682, 26068, 31225, 37415, 44617, 53258, 63313, 75235, 89173, 105645

Offset: 0

Gus Wiseman, Apr 30 2023

nonn

A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes of {a,a,b,b,b,c,d,d,d} are {b,d}.

			The partition (3,3,2,1) has greatest multiplicity 2, and a unique part of multiplicity 2 (namely 3), so is counted under a(9).
The a(1) = 1 through a(7) = 11 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (111)  (22)    (221)    (33)      (322)
                    (211)   (311)    (222)     (331)
                    (1111)  (2111)   (411)     (511)
                            (11111)  (3111)    (2221)
                                     (21111)   (3211)
                                     (111111)  (4111)
                                               (22111)
                                               (31111)
                                               (211111)
                                               (1111111)

Andrew Howroyd, Table of n, a(n) for n = 0..1000

For parts instead of multiplicities we have A000041(n-1), ranks A102750.
For median instead of mode we have A238478, complement A238479.
These partitions have ranks A356862.
The complement is counted by A362607, ranks A362605.
For co-mode complement we have A362609, ranks A362606.
For co-mode we have A362610, ranks A359178.
A275870 counts collapsible partitions.
A359893 counts partitions by median.
A362611 counts modes in prime factorization, co-modes A362613.
A362614 counts partitions by number of modes, co-modes A362615.
Cf. A002865, A008284, A053263, A098859, A237984, A304442, A327472, A360071, A360687, A362612.

Table[Length[Select[IntegerPartitions[n],Length[Commonest[#]]==1&]],{n,0,30}]

seq(n) = my(A=O(x*x^n)); Vec(sum(m=1, n, sum(j=1, n\m, x^(j*m)*(1-x^j)/(1 - x^(j*m)), A)*prod(j=1, n\m, (1 - x^(j*m))/(1 - x^j) + A)/prod(j=n\m+1, n, 1 - x^j + A)), -(n+1)) \\ Andrew Howroyd, May 04 2023

G.f.: Sum_{m>=1} (Sum_{j>=1} x^(j*m)*(1 - x^j)/(1 - x^(j*m))) * (Product_{j>=1} (1 - x^(j*m))/(1 - x^j)). - Andrew Howroyd, May 04 2023

A238479 Number of partitions of n whose median is not a part.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 4, 5, 8, 10, 13, 18, 23, 30, 40, 50, 64, 83, 104, 131, 166, 206, 256, 320, 394, 485, 598, 730, 891, 1088, 1318, 1596, 1932, 2326, 2797, 3360, 4020, 4804, 5735, 6824, 8108, 9624, 11392, 13468, 15904, 18737, 22048, 25914, 30400, 35619, 41686

Offset: 1

Clark Kimberling, Feb 27 2014

Also, the number of partitions p of n such that (1/2)*max(p) is a part of p.

Also the number of even-length integer partitions of n with distinct middle parts. For example, the partition (4,3,2,1) has middle parts {2,3} so is counted under a(10), but (3,2,2,1) has middle parts {2,2} so is not counted under a(8). - Gus Wiseman, May 13 2023

			a(6) counts these partitions:  51, 42, 2211 which all have an even number of parts, and their medians 3, 3 and 1.5 are not present. Note that the partitions 33 and 3111, although having an even number of parts, are not included in the count of a(6), but instead in that of A238478(6), as their medians, 3 for the former and 1 for the latter, are present in those partitions.

A. Blecher and A. Knopfmacher, Fixed points and matching points in partitions, Ramanujan J. 58 (2022), 23-41.

The complement is A238478, ranks A362618.
For mean instead of median we have A327472, complement A237984.
These partitions have ranks A362617.
A000041 counts integer partitions, even-length A027187.
A325347 counts partitions with integer median, complement A307683.
A359893/A359901/A359902 count partitions by median.
A359908 ranks partitions with integer median, complement A359912.
Cf. A002865, A008284, A053263, A238480, A238481, A240219, A359907, A360686, A360687, A360952.

Table[Count[IntegerPartitions[n], p_ /; !MemberQ[p, Median[p]]], {n, 40}]
(* also *)
Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, Max[p]/2]], {n, 50}]

my(q='q+O('q^50)); concat([0,0], Vec(sum(n=1,17,q^(3*n)/prod(k=1,2*n,1-q^k)))) \\ David Radcliffe, Jun 25 2025

from sympy.utilities.iterables import partitions
def A238479(n): return sum(1 for p in partitions(n) if (m:=max(p,default=0))&1^1 and m>>1 in p) # Chai Wah Wu, Sep 21 2023

a(n) = A000041(n) - A238478(n).
For all n, A027187(n) >= a(n). [Because when a partition of n has an odd number of parts, then it is not counted by this sequence (cf. A238478) and also some of the partitions with an even number of parts might be excluded here. Cf. Examples.] - Antti Karttunen, Feb 27 2014
From Jeremy Lovejoy, Sep 29 2022: (Start)
G.f.: Sum_{n>=1} q^(3*n)/Product_{k=1..2*n} (1-q^k).
a(n) ~ Pi/(2^(17/4)*3^(3/4)*n^(5/4))*exp(Pi*sqrt(2*n/3)). Proved by Blecher and Knopfmacher. (End)
a(n) = A087897(2*n) = A035294(n) - A078408(n-1). - Mathew Englander, May 20 2023

A362616 Numbers in whose prime factorization the greatest factor is the unique mode.

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 18, 19, 23, 25, 27, 29, 31, 32, 37, 41, 43, 47, 49, 50, 53, 54, 59, 61, 64, 67, 71, 73, 75, 79, 81, 83, 89, 97, 98, 101, 103, 107, 108, 109, 113, 121, 125, 127, 128, 131, 137, 139, 147, 149, 150, 151, 157, 162, 163, 167

Offset: 1

Gus Wiseman, May 05 2023

nonn

First differs from A329131 in lacking 450 and having 1500.

A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes of {a,a,b,b,b,c,d,d,d} are {b,d}.

			The factorization of 90 is 2*3*3*5, modes {3}, so 90 is missing.
The factorization of 450 is 2*3*3*5*5, modes {3,5}, so 450 is missing.
The factorization of 900 is 2*2*3*3*5*5, modes {2,3,5}, so 900 is missing.
The factorization of 1500 is 2*2*3*5*5*5, modes {5}, so 1500 is present.
The terms together with their prime indices begin:
     2: {1}          27: {2,2,2}           67: {19}
     3: {2}          29: {10}              71: {20}
     4: {1,1}        31: {11}              73: {21}
     5: {3}          32: {1,1,1,1,1}       75: {2,3,3}
     7: {4}          37: {12}              79: {22}
     8: {1,1,1}      41: {13}              81: {2,2,2,2}
     9: {2,2}        43: {14}              83: {23}
    11: {5}          47: {15}              89: {24}
    13: {6}          49: {4,4}             97: {25}
    16: {1,1,1,1}    50: {1,3,3}           98: {1,4,4}
    17: {7}          53: {16}             101: {26}
    18: {1,2,2}      54: {1,2,2,2}        103: {27}
    19: {8}          59: {17}             107: {28}
    23: {9}          61: {18}             108: {1,1,2,2,2}
    25: {3,3}        64: {1,1,1,1,1,1}    109: {29}

First term with given bigomega is A000079.
For median instead of mode we have A053263.
Partitions of this type are counted by A362612.
A112798 lists prime indices, length A001222, sum A056239.
A356862 ranks partitions with a unique mode, counted by A362608.
A359178 ranks partitions with a unique co-mode, counted by A362610.
A362605 ranks partitions with more than one mode, counted by A362607.
A362606 ranks partitions with more than one co-mode, counted by A362609.
A362614 counts partitions by number of modes, ranked by A362611.
A362615 counts partitions by number of co-modes, ranked by A362613.
Cf. A000040, A002865, A327473, A327476, A358137, A360687.

prifacs[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
Select[Range[100],Commonest[prifacs[#]]=={Max[prifacs[#]]}&]

A238478 Number of partitions of n whose median is a part.

Original entry on oeis.org

1, 2, 2, 4, 5, 8, 11, 17, 22, 32, 43, 59, 78, 105, 136, 181, 233, 302, 386, 496, 626, 796, 999, 1255, 1564, 1951, 2412, 2988, 3674, 4516, 5524, 6753, 8211, 9984, 12086, 14617, 17617, 21211, 25450, 30514, 36475, 43550, 51869, 61707, 73230, 86821, 102706

Offset: 1

Clark Kimberling, Feb 27 2014

Also the number of integer partitions of n with a unique middle part. This means that either the length is odd or the two middle parts are equal. For example, the partition (4,3,2,1) has middle parts {2,3} so is not counted under a(10), but (3,2,2,1) has middle parts {2,2} so is counted under a(8). - Gus Wiseman, May 13 2023

			a(6) counts these partitions:  6, 411, 33, 321, 3111, 222, 21111, 111111.

For mean instead of median we have A237984, ranks A327473.
The complement is counted by A238479, ranks A362617.
These partitions have ranks A362618.
A000041 counts integer partitions.
A325347 counts partitions with integer median, complement A307683.
A359893/A359901/A359902 count partitions by median.
A359908 ranks partitions with integer median, complement A359912.
Cf. A002865, A008284, A053263, A238480, A240219, A327472, A359907, A360686, A360687, A362608.

Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, Median[p]]], {n, 40}]

a(n) + A238479(n) = A000041(n).
For all n, a(n) >= A027193(n) (because when a partition of n has an odd number of parts, its median is simply the part at the middle). - Antti Karttunen, Feb 27 2014
a(n) = A078408(n-1) - A282893(n). - Mathew Englander, May 24 2023

A360554 Numbers > 1 whose unordered prime signature has non-integer median.

Original entry on oeis.org

12, 18, 20, 28, 44, 45, 48, 50, 52, 63, 68, 72, 75, 76, 80, 92, 98, 99, 108, 112, 116, 117, 124, 147, 148, 153, 162, 164, 171, 172, 175, 176, 188, 192, 200, 207, 208, 212, 236, 242, 244, 245, 261, 268, 272, 275, 279, 284, 288, 292, 304, 316, 320, 325, 332, 333

Offset: 1

Gus Wiseman, Feb 16 2023

nonn

First differs from A187039 in having 2520 and lacking 1 and 12600.
A number's unordered prime signature (row n of A118914) is the multiset of positive exponents in its prime factorization.
The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

			The unordered prime signature of 2520 is {3,2,1,1}, with median 3/2, so 2520 is in the sequence.
The unordered prime signature of 12600 is {3,2,2,1}, with median 2, so 12600 is not in the sequence.

A subset of A030231.
For mean instead of median we have A070011.
Positions of odd terms in A360460.
The complement is A360553 (without 1), counted by A360687.
- For divisors (A063655) we have A139710, complement A139711.
- For prime indices (A360005) we have A359912, complement A359908.
- For distinct prime indices (A360457) we have A360551 complement A360550.
- For distinct prime factors (A360458) we have A100367, complement A360552.
- For prime factors (A360459) we have A072978, complement A359913.
- For prime multiplicities (A360460) we have A360554, complement A360553.
- For 0-prepended differences (A360555) we have A360557, complement A360556.
A112798 lists prime indices, length A001222, sum A056239.
A325347 = partitions w/ integer median, complement A307683, strict A359907.
A326619/A326620 gives mean of distinct prime indices.
A359893 and A359901 count partitions by median, odd-length A359902.
Cf. A000975, A026424, A304038, A316413, A326621, A348551, A360006, A360009, A360248, A360453.

Select[Range[2,100],!IntegerQ[Median[Last/@FactorInteger[#]]]&]

A360553 Numbers > 1 whose unordered prime signature has integer median.

Original entry on oeis.org

2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 21, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 46, 47, 49, 51, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 77, 78, 79, 81, 82, 83

Offset: 1

Gus Wiseman, Feb 16 2023

nonn

First differs from A067340 in having 60.
A number's unordered prime signature (row n of A118914) is the multiset of positive exponents in its prime factorization.
The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

			The unordered prime signature of 60 is {1,1,2}, with median 1, so 60 is in the sequence.
The unordered prime signature of 1260 is {1,1,2,2}, with median 3/2, so 1260 is not in the sequence.

For mean instead of median we have A067340, complement A070011.
Positions of even terms in A360460.
The complement is A360554 (without 1).
These partitions are counted by A360687.
- For divisors (A063655) we have A139711, complement A139710.
- For prime indices (A360005) we have A359908, complement A359912.
- For distinct prime indices (A360457) we have A360550, complement A360551.
- For distinct prime factors (A360458) we have A360552, complement A100367.
- For prime factors (A360459) we have A359913, complement A072978.
- For prime multiplicities (A360460) we have A360553, complement A360554.
- For 0-prepended differences (A360555) we have A360556, complement A360557.
A112798 lists prime indices, length A001222, sum A056239.
A124010 lists prime signature.
A325347 = partitions w/ integer median, complement A307683, strict A359907.
A359893 and A359901 count partitions by median, odd-length A359902.
A360454 = numbers whose prime indices and signature have the same median.
Cf. A000975, A026424, A078174, A078175, A316413, A326621, A360453.

Select[Range[2,100],IntegerQ[Median[Last/@FactorInteger[#]]]&]

A360686 Number of integer partitions of n whose distinct parts have integer median.

Original entry on oeis.org

1, 2, 2, 4, 3, 8, 7, 16, 17, 31, 35, 60, 67, 99, 121, 170, 200, 270, 328, 436, 522, 674, 828, 1061, 1292, 1626, 1983, 2507, 3035, 3772, 4582, 5661, 6801, 8358, 10059, 12231, 14627, 17702, 21069, 25423, 30147, 36100, 42725, 50936, 60081, 71388, 84007, 99408

Offset: 1

Gus Wiseman, Feb 20 2023

nonn

The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

			The a(1) = 1 through a(8) = 16 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (311)    (33)      (331)      (44)
                    (31)    (11111)  (42)      (421)      (53)
                    (1111)           (51)      (511)      (62)
                                     (222)     (3211)     (71)
                                     (321)     (31111)    (422)
                                     (3111)    (1111111)  (431)
                                     (111111)             (521)
                                                          (2222)
                                                          (3221)
                                                          (3311)
                                                          (4211)
                                                          (5111)
                                                          (32111)
                                                          (311111)
                                                          (11111111)
For example, the partition y = (7,4,2,1,1) has distinct parts {1,2,4,7} with median 3, so y is counted under a(15).

For all parts: A325347, strict A359907, ranks A359908, complement A307683.
For mean instead of median: A360241, ranks A326621.
These partitions have ranks A360550, complement A360551.
For multiplicities instead of distinct parts: A360687.
The complement is counted by A360689.
A000041 counts integer partitions, strict A000009.
A000975 counts subsets with integer median.
A027193 counts odd-length partitions, strict A067659, ranks A026424.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A116608 counts partitions by number of distinct parts.
A359893 and A359901 count partitions by median, odd-length A359902.
Cf. A240219, A359906, A360005, A360071, A360244, A360245, A360556, A360688.

Table[Length[Select[IntegerPartitions[n], IntegerQ[Median[Union[#]]]&]],{n,30}]

A362558 Number of integer partitions of n without a nonempty initial consecutive subsequence summing to n/2.

Original entry on oeis.org

1, 1, 1, 3, 2, 7, 6, 15, 11, 30, 27, 56, 44, 101, 93, 176, 149, 297, 271, 490, 432, 792, 744, 1255, 1109, 1958, 1849, 3010, 2764, 4565, 4287, 6842, 6328, 10143, 9673, 14883, 13853, 21637, 20717, 31185, 29343, 44583, 42609, 63261, 60100, 89134, 85893, 124754

Offset: 0

Gus Wiseman, Apr 24 2023

nonn

Also the number of n-multisets of positive integers that (1) have integer median, (2) cover an initial interval, and (3) have weakly decreasing multiplicities.

			The a(1) = 1 through a(7) = 15 partitions:
  (1)  (2)  (3)    (4)   (5)      (6)     (7)
            (21)   (31)  (32)     (42)    (43)
            (111)        (41)     (51)    (52)
                         (221)    (222)   (61)
                         (311)    (411)   (322)
                         (2111)   (2211)  (331)
                         (11111)          (421)
                                          (511)
                                          (2221)
                                          (3211)
                                          (4111)
                                          (22111)
                                          (31111)
                                          (211111)
                                          (1111111)
The partition y = (3,2,1,1,1) has nonempty initial consecutive subsequences (3,2,1,1,1), (3,2,1,1), (3,2,1), (3,2), (3), with sums 8, 7, 6, 5, 3. Since 4 is missing, y is counted under a(8).

The odd bisection is A058695.
The version for compositions is A213173.
The complement is counted by A322439 aerated.
The even bisection is A362051.
For mean instead of median we have A362559.
A000041 counts integer partitions, strict A000009.
A325347 counts partitions with integer median, complement A307683.
A359893/A359901/A359902 count partitions by median.
Cf. A058398, A108917, A169942, A325676, A353864, A360254, A360672, A360675, A360686, A360687, A362560.

Table[Length[Select[IntegerPartitions[n],!MemberQ[Accumulate[#],n/2]&]],{n,0,15}]

A360681 Numbers for which the prime signature has the same median as the first differences of 0-prepended prime indices.

Original entry on oeis.org

1, 2, 6, 30, 42, 49, 60, 66, 70, 78, 84, 90, 102, 105, 114, 120, 126, 132, 138, 140, 150, 154, 156, 168, 174, 186, 198, 204, 210, 222, 228, 234, 246, 258, 264, 270, 276, 280, 282, 286, 294, 306, 308, 312, 315, 318, 330, 342, 348, 350, 354, 366, 372, 378, 385

Offset: 1

Gus Wiseman, Feb 19 2023

nonn

A number's (unordered) prime signature (row n of A118914) is the multiset of positive exponents in its prime factorization.

The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    6: {1,2}
   30: {1,2,3}
   42: {1,2,4}
   49: {4,4}
   60: {1,1,2,3}
   66: {1,2,5}
   70: {1,3,4}
   78: {1,2,6}
   84: {1,1,2,4}
   90: {1,2,2,3}
For example, the prime indices of 2760 are {1,1,1,2,3,9}. The signature is (3,1,1,1), with median 1. The first differences of 0-prepended prime indices are (1,0,0,1,1,6), with median 1/2. So 2760 is not in the sequence.

For distinct prime indices instead of 0-prepended differences: A360453.
For mean instead of median we have A360680.
A112798 = prime indices, length A001222, sum A056239, mean A326567/A326568.
A124010 gives prime signature, sorted A118914, mean A088529/A088530.
A325347 = partitions w/ integer median, strict A359907, complement A307683.
A359893 and A359901 count partitions by median, odd-length A359902.
Multisets with integer median:
- For divisors (A063655) we have A139711, complement A139710.
- For prime indices (A360005) we have A359908, complement A359912.
- For distinct prime indices (A360457) we have A360550, complement A360551.
- For distinct prime factors (A360458) we have A360552, complement A100367.
- For prime factors (A360459) we have A359913, complement A072978.
- For prime multiplicities (A360460) we have A360553, complement A360554.
- For 0-prepended differences (A360555) we have A360556, complement A360557.
Cf. A000975, A026424, A316413, A340610, A359904, A360006, A360248, A360558, A360687, A360688.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Median[Length/@Split[prix[#]]] == Median[Differences[Prepend[prix[#],0]]]&]

A360682 Number of integer partitions of n of length > 2 whose second differences have median 0.

Original entry on oeis.org

0, 0, 0, 1, 1, 1, 5, 4, 10, 13, 18, 23, 44, 44, 72, 98, 132, 162, 241, 277, 394, 497, 643, 800, 1076, 1287, 1660, 2078, 2604, 3192, 4065, 4892, 6113, 7490, 9166, 11110, 13717, 16429, 20033, 24201, 29143, 34945, 42251, 50219, 60253, 71852, 85503, 101501, 120899

Offset: 0

Gus Wiseman, Feb 19 2023

nonn

The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

			The a(3) = 1 through a(9) = 13 partitions:
  (111)  (1111)  (11111)  (222)     (22111)    (2222)      (333)
                          (321)     (31111)    (3221)      (432)
                          (2211)    (211111)   (3311)      (531)
                          (21111)   (1111111)  (22211)     (22221)
                          (111111)             (32111)     (33111)
                                               (41111)     (51111)
                                               (221111)    (222111)
                                               (311111)    (321111)
                                               (2111111)   (411111)
                                               (11111111)  (2211111)
                                                           (3111111)
                                                           (21111111)
                                                           (111111111)

For first differences we have A237363.
For sum instead of median we have A360683.
For mean instead of median we have A360683 - A008619.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by number of parts.
A325347 counts partitions with integer median, strict A359907.
A359893 and A359901 count partitions by median, odd-length A359902.
A360005 gives median of prime indices (times two).
Cf. A000975, A027193, A067538, A114638, A307683, A359908, A360245, A360254, A360687, A360688.

Table[Length[Select[IntegerPartitions[n],Median[Differences[#,2]]==0&]],{n,0,30}]

cp's OEIS Frontend

A362608 Number of integer partitions of n having a unique mode.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A238479 Number of partitions of n whose median is not a part.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula

A362616 Numbers in whose prime factorization the greatest factor is the unique mode.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A238478 Number of partitions of n whose median is a part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A360554 Numbers > 1 whose unordered prime signature has non-integer median.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A360553 Numbers > 1 whose unordered prime signature has integer median.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A360686 Number of integer partitions of n whose distinct parts have integer median.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A362558 Number of integer partitions of n without a nonempty initial consecutive subsequence summing to n/2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs