A241131 -id:A241131 - cp's OEIS frontend

A364062 Number of integer partitions of n with unique co-mode 1.

0, 1, 1, 1, 1, 2, 1, 3, 2, 3, 3, 6, 2, 8, 6, 9, 6, 16, 7, 21, 12, 23, 18, 39, 17, 47, 32, 59, 40, 86, 44, 110, 72, 131, 95, 188, 103, 233, 166, 288, 201, 389, 244, 490, 347, 587, 440, 794, 524, 974, 727, 1187, 903, 1547, 1106, 1908, 1459, 2303, 1826, 2979, 2198

Offset: 0

Gus Wiseman, Jul 12 2023

nonn

These are partitions with at least one 1 but with fewer 1's than each of the other parts.

We define a co-mode in a multiset to be an element that appears at most as many times as each of the other elements. For example, the co-modes of {a,a,b,b,b,c,c} are {a,c}.

			The a(n) partitions for n = 5, 7, 11, 13, 15:
  (221)    (331)      (551)          (661)            (771)
  (11111)  (2221)     (33221)        (4441)           (44331)
           (1111111)  (33311)        (33331)          (55221)
                      (222221)       (44221)          (442221)
                      (2222111)      (332221)         (3322221)
                      (11111111111)  (2222221)        (3333111)
                                     (22222111)       (22222221)
                                     (1111111111111)  (222222111)
                                                      (111111111111111)

For high (or unique) mode we have A241131, ranks A360013.
For low mode we have A241131, ranks A360015.
Allowing any unique co-mode gives A362610, ranks A359178.
These partitions have ranks A364061.
Adding all 1-free partitions gives A364159, ranks A364158.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length (or decreasing mean), strict A008289.
A237984 counts partitions containing their mean, ranks A327473.
A327472 counts partitions not containing their mean, ranks A327476.
A362608 counts partitions w/ unique mode, ranks A356862, complement A362605.
A362611 counts modes in prime indices, triangle A362614.
A362613 counts co-modes in prime indices, triangle A362615.
A363486 gives least mode in prime indices, A363487 greatest.
Cf. A002865, A027336, A325347, A098859, A360014, A362562, A362606, A363720, A363723, A363725, A363726.

comodes[ms_]:=Select[Union[ms],Count[ms,#]<=Min@@Length/@Split[ms]&];
Table[Length[Select[IntegerPartitions[n],comodes[#]=={1}&]],{n,0,30}]

A364158 Numbers whose multiset of prime factors has low (i.e. least) co-mode 2.

Original entry on oeis.org

1, 2, 4, 6, 8, 10, 14, 16, 18, 22, 26, 30, 32, 34, 36, 38, 42, 46, 50, 54, 58, 62, 64, 66, 70, 74, 78, 82, 86, 90, 94, 98, 100, 102, 106, 108, 110, 114, 118, 122, 126, 128, 130, 134, 138, 142, 146, 150, 154, 158, 162, 166, 170, 174, 178, 182, 186, 190, 194

Offset: 1

Gus Wiseman, Jul 14 2023

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
We define a co-mode in a multiset to be an element that appears at most as many times as each of the others. For example, the co-modes in {a,a,b,b,b,c,c} are {a,c}.
Except for 1, this is the lists of all even numbers whose prime factorization contains at most as many 2's as non-2 parts.
Extending the terminology of A124943, the "low co-mode" of a multiset is the least co-mode.

			The terms together with their prime factorizations begin:
   1 =
   2 = 2
   4 = 2*2
   6 = 2*3
   8 = 2*2*2
  10 = 2*5
  14 = 2*7
  16 = 2*2*2*2
  18 = 2*3*3
  22 = 2*11
  26 = 2*13
  30 = 2*3*5
  32 = 2*2*2*2*2
  34 = 2*17
  36 = 2*2*3*3

Partitions of this type are counted by A364159.
Positions of 1's in A364191, high A364192, modes A363486, high A363487.
For median we have A363488, positions of 1 in A363941, triangle A124943.
For mode instead of co-mode we have A360015, counted by A241131.
A027746 lists prime factors (with multiplicity), length A001222.
A362611 counts modes in prime factorization, triangle A362614
A362613 counts co-modes in prime factorization, triangle A362615
Ranking partitions:
- A356862: unique mode, counted by A362608
- A359178: unique co-mode, counted by A362610
- A362605: multiple modes, counted by A362607
- A362606: multiple co-modes, counted by A362609
Cf. A215366, A327473, A327476, A360005.

prifacs[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
comodes[ms_]:=Select[Union[ms],Count[ms,#]<=Min@@Length/@Split[ms]&];
Select[Range[100],#==1||Min[comodes[prifacs[#]]]==2&]

A364159 Number of integer partitions of n - 1 containing fewer 1's than any other part.

Original entry on oeis.org

0, 1, 1, 2, 2, 3, 4, 5, 7, 9, 11, 15, 20, 23, 32, 40, 50, 61, 82, 95, 126, 149, 188, 228, 292, 337, 430, 510, 633, 748, 933, 1083, 1348, 1579, 1925, 2262, 2761, 3197, 3893, 4544, 5458, 6354, 7634, 8835, 10577, 12261, 14546, 16864, 19990, 23043, 27226, 31428

Offset: 0

Gus Wiseman, Jul 16 2023

nonn

Also integer partitions of n with least co-mode 1. Here, we define a co-mode in a multiset to be an element that appears at most as many times as each of the others. For example, the co-modes in {a,a,b,b,b,c,c} are {a,c}.

			The a(1) = 1 through a(8) = 7 partitions:
  (1)  (11)  (21)   (31)    (41)     (51)      (61)       (71)
             (111)  (1111)  (221)    (321)     (331)      (431)
                            (11111)  (2211)    (421)      (521)
                                     (111111)  (2221)     (3221)
                                               (1111111)  (3311)
                                                          (22211)
                                                          (11111111)

For mode instead of co-mode we have A241131, ranks A360015.
The case with only one 1 is A364062, ranks A364061.
Counts partitions ranked by A364158.
Counts positions of 1's in A364191, high A364192.
A362611 counts modes in prime factorization, triangle A362614.
A362613 counts co-modes in prime factorization, triangle A362615.
Ranking and counting partitions:
- A356862 = unique mode, counted by A362608
- A359178 = unique co-mode, counted by A362610
- A362605 = multiple modes, counted by A362607
- A362606 = multiple co-modes, counted by A362609
Cf. A027336, A124943, A237984, A327472, A363486, A363487.

Table[Length[Select[IntegerPartitions[n-1],Count[#,1]

A382302 Number of integer partitions of n with greatest part, greatest multiplicity, and number of distinct parts all equal.

Original entry on oeis.org

0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 2, 2, 2, 4, 3, 3, 4, 4, 3, 6, 5, 8, 8, 13, 13, 16, 17, 21, 22, 25, 26, 32, 34, 37, 44, 47, 55, 62, 72, 78, 94, 103, 118, 132, 151, 163, 189, 205, 230, 251, 284, 307, 346, 377, 420, 462, 515, 562, 629, 690, 763

Offset: 0

Gus Wiseman, Mar 24 2025

nonn

			The a(n) partitions for n = 1, 2, 10, 13, 14, 19, 20, 21:
  1  .  32221   332221   333221   4333321     43333211    43333221
        322111  333211   3322211  43322221    44322221    433332111
                3322111  3332111  433321111   433222211   443222211
                4321111           443221111   443321111   444321111
                                  543211111   4332221111  4332222111
                                  4322221111              4333221111
                                                          4432221111
                                                          5432211111

John Tyler Rascoe, Table of n, a(n) for n = 0..500

Without the middle statistic we have A000009, ranked by A055932.
Counting partitions by the LHS gives A008284 (strict A008289), rank statistic A061395.
Counting partitions by the middle statistic gives A091602, rank statistic A051903.
Counting partitions by the RHS gives A116608/A365676, rank statistic A001221.
Without the LHS we have A239964, ranked by A212166.
Without the RHS we have A240312, ranked by A381542.
The Heinz numbers of these partitions are listed by A381543.
A000041 counts integer partitions.
A047993 counts partitions with max part = length, ranks A106529.
A116598 counts ones in partitions, rank statistic A007814.
A381438 counts partitions by last part part of section-sum partition.
Cf. A047966, A130091, A237984, A239455, A241131, A351293, A362608, A363719, A381079, A381544, A382303.

Table[Length[Select[IntegerPartitions[n],Max@@#==Max@@Length/@Split[#]==Length[Union[#]]&]],{n,0,30}]

A_x(N) = {if(N<1,[0],my(x='x+O('x^(N+1))); concat([0],Vec(sum(i=1,N, prod(j=1,i, (x^j-x^((i+1)*j))/(1-x^j)) - prod(j=1,i, (x^j-x^(i*j))/(1-x^j))))))}
A_x(60) \\ John Tyler Rascoe, Mar 25 2025

G.f.: Sum_{i>0} (B(i+1,i,x) - B(i,i,x)) where B(a,c,x) = Product_{j=1..c} (x^j - x^(a*j))/(1 - x^j). - John Tyler Rascoe, Mar 25 2025

A241274 Number of partitions p of n such that (number of numbers in p that have multiplicity 1) = (number of numbers in p having multiplicity > 1).

Original entry on oeis.org

1, 0, 0, 0, 1, 3, 3, 7, 7, 10, 12, 16, 14, 23, 25, 33, 41, 59, 72, 101, 126, 171, 216, 280, 344, 436, 535, 666, 788, 970, 1153, 1394, 1649, 1996, 2336, 2796, 3326, 3965, 4689, 5627, 6629, 7926, 9404, 11192, 13273, 15777, 18637, 22057, 26067, 30672, 36122

Offset: 0

Clark Kimberling, Apr 24 2014

			a(6) counts these 3 partitions:  411, 3111, 21111.

Cf. A241090, A241131, A241132.

z = 30; u[p_] := Length[DeleteDuplicates[Select[p, Count[p, #] == 1 &]]]; e[p_] := Length[DeleteDuplicates[Select[p, Count[p, #] > 1 &]]]; Table[Count[IntegerPartitions[n], p_ /; u[p] == e[p]], {n, 0, z}]

a(n) + A329976(n) + A330001(n) = A000041(n) for n >= 0.

A381439 Numbers whose exponent of 2 in their canonical prime factorization is not larger than all the other exponents.

Original entry on oeis.org

3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 45, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83, 85, 86, 87, 89

Offset: 1

Gus Wiseman, Mar 02 2025

nonn

First differs from A335740 in lacking 72, which has prime indices {1,1,1,2,2} and section-sum partition (3,3,1).
Also numbers whose section-sum partition of prime indices (A381436) ends with a number > 1.
Includes all squarefree numbers (A005117) except 2.

			The terms together with their prime indices begin:
     3: {2}        25: {3,3}        45: {2,2,3}
     5: {3}        26: {1,6}        46: {1,9}
     6: {1,2}      27: {2,2,2}      47: {15}
     7: {4}        29: {10}         49: {4,4}
     9: {2,2}      30: {1,2,3}      50: {1,3,3}
    10: {1,3}      31: {11}         51: {2,7}
    11: {5}        33: {2,5}        53: {16}
    13: {6}        34: {1,7}        54: {1,2,2,2}
    14: {1,4}      35: {3,4}        55: {3,5}
    15: {2,3}      36: {1,1,2,2}    57: {2,8}
    17: {7}        37: {12}         58: {1,10}
    18: {1,2,2}    38: {1,8}        59: {17}
    19: {8}        39: {2,6}        61: {18}
    21: {2,4}      41: {13}         62: {1,11}
    22: {1,5}      42: {1,2,4}      63: {2,2,4}
    23: {9}        43: {14}         65: {3,6}

The LHS (exponent of 2) is A007814.
The complement is A360013 = 2*A360015 (if we prepend 1), counted by A241131 (shifted right and starting with 1 instead of 0).
The case of equality is A360014, inclusive A360015.
The RHS (greatest exponent of an odd prime factor) is A375669.
These are positions of terms > 1 in A381437.
Partitions of this type are counted by A381544.
A000040 lists the primes, differences A001223.
A051903 gives greatest prime exponent, least A051904.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts Look-and-Say partitions, complement A351293.
A381436 gives section-sum partition of prime indices, Heinz number A381431.
A381438 counts partitions by last part part of section-sum partition.
Cf. A000720, A001221, A001222, A001694, A003557, A005117, A066328, A130091, A181819, A212166, A380955.

Select[Range[100],FactorInteger[2*#][[1,2]]-1<=Max@@Last/@Rest[FactorInteger[2*#]]&]

Positive integers n such that A007814(n) <= A375669(n).

A363745 Number of integer partitions of n whose rounded-down mean is 2.

Original entry on oeis.org

0, 0, 1, 0, 2, 2, 3, 4, 10, 6, 16, 21, 24, 32, 58, 47, 85, 111, 119, 158, 248, 217, 341, 442, 461, 596, 867, 792, 1151, 1465, 1506, 1916, 2652, 2477, 3423, 4298, 4381, 5488, 7334, 6956, 9280, 11503, 11663, 14429, 18781, 17992, 23383, 28675, 28970, 35449, 45203

Offset: 0

Gus Wiseman, Jul 05 2023

nonn

			The a(2) = 1 through a(10) = 16 partitions:
  (2)  .  (22)  (32)  (222)  (322)  (332)   (3222)  (3322)
          (31)  (41)  (321)  (331)  (422)   (3321)  (3331)
                      (411)  (421)  (431)   (4221)  (4222)
                             (511)  (521)   (4311)  (4321)
                                    (611)   (5211)  (4411)
                                    (2222)  (6111)  (5221)
                                    (3221)          (5311)
                                    (3311)          (6211)
                                    (4211)          (7111)
                                    (5111)          (22222)
                                                    (32221)
                                                    (33211)
                                                    (42211)
                                                    (43111)
                                                    (52111)
                                                    (61111)

For 1 instead of 2 we have A025065, ranks A363949.
The high version is A026905 reduplicated, ranks A363950.
Column k = 2 of A363945.
These partitions have ranks A363954.
A008284 counts partitions by length, A058398 by mean.
A051293 counts subsets with integer mean, median A000975.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A349156 counts partitions with non-integer mean, ranks A348551.
Cf. A000041, A002865, A027336, A237984, A241131, A327472, A327482, A363723, A363943, A363944, A363946.

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

A364191 Low co-mode in the multiset of prime indices of n.

Original entry on oeis.org

0, 1, 2, 1, 3, 1, 4, 1, 2, 1, 5, 2, 6, 1, 2, 1, 7, 1, 8, 3, 2, 1, 9, 2, 3, 1, 2, 4, 10, 1, 11, 1, 2, 1, 3, 1, 12, 1, 2, 3, 13, 1, 14, 5, 3, 1, 15, 2, 4, 1, 2, 6, 16, 1, 3, 4, 2, 1, 17, 2, 18, 1, 4, 1, 3, 1, 19, 7, 2, 1, 20, 2, 21, 1, 2, 8, 4, 1, 22, 3, 2, 1

Offset: 1

Gus Wiseman, Jul 16 2023

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
We define a co-mode in a multiset to be an element that appears at most as many times as each of the others. For example, the co-modes in {a,a,b,b,b,c,c} are {a,c}.
Extending the terminology of A124943, the "low co-mode" in a multiset is the least co-mode.

			The prime indices of 2100 are {1,1,2,3,3,4}, with co-modes {2,4}, so a(2100) = 2.

For prime factors instead of indices we have A067695, high A359612.
For mode instead of co-mode we have A363486, high A363487, triangle A363952.
For median instead of co-mode we have A363941, high A363942.
Positions of 1's are A364158, counted by A364159.
The high version is A364192 = positions of 1's in A364061.
A112798 lists prime indices, length A001222, sum A056239.
A362611 counts modes in prime indices, triangle A362614.
A362613 counts co-modes in prime indices, triangle A362615.
Ranking and counting partitions:
- A356862 = unique mode, counted by A362608
- A359178 = unique co-mode, counted by A362610
- A362605 = multiple modes, counted by A362607
- A362606 = multiple co-modes, counted by A362609
Cf. A124943, A241131, A327473, A327476, A360005, A360015, A363488.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
comodes[ms_]:=Select[Union[ms],Count[ms,#]<=Min@@Length/@Split[ms]&];
Table[If[n==1,0,Min[comodes[prix[n]]]],{n,30}]

a(n) = A000720(A067695(n)).

A067695(n) = A000040(a(n)).

A364192 High (i.e., greatest) co-mode in the multiset of prime indices of n.

Original entry on oeis.org

0, 1, 2, 1, 3, 2, 4, 1, 2, 3, 5, 2, 6, 4, 3, 1, 7, 1, 8, 3, 4, 5, 9, 2, 3, 6, 2, 4, 10, 3, 11, 1, 5, 7, 4, 2, 12, 8, 6, 3, 13, 4, 14, 5, 3, 9, 15, 2, 4, 1, 7, 6, 16, 1, 5, 4, 8, 10, 17, 3, 18, 11, 4, 1, 6, 5, 19, 7, 9, 4, 20, 2, 21, 12, 2, 8, 5, 6, 22, 3, 2

Offset: 1

Gus Wiseman, Jul 16 2023

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
We define a co-mode in a multiset to be an element that appears at most as many times as each of the others. For example, the co-modes in {a,a,b,b,b,c,c} are {a,c}.
Extending the terminology of A124943, the "high co-mode" in a multiset is the greatest co-mode.

			The prime indices of 2100 are {1,1,2,3,3,4}, with co-modes {2,4}, so a(2100) = 4.

For prime factors instead of indices we have A359612, low A067695.
For mode instead of co-mode we have A363487 (triangle A363953), low A363486 (triangle A363952).
The version for median instead of co-mode is A363942, low A363941.
Positions of 1's are A364061, counted by A364062.
The low version is A364191, 1's at A364158 (counted by A364159).
A112798 lists prime indices, length A001222, sum A056239.
A362611 counts modes in prime indices, triangle A362614.
A362613 counts co-modes in prime indices, triangle A362615.
Ranking and counting partitions:
- A356862 = unique mode, counted by A362608
- A359178 = unique co-mode, counted by A362610
- A362605 = multiple modes, counted by A362607
- A362606 = multiple co-modes, counted by A362609
Cf. A241131, A327473, A327476, A360005, A360015, A362612, A363740.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
comodes[ms_]:=Select[Union[ms],Count[ms,#]<=Min@@Length/@Split[ms]&];
Table[If[n==1,0,Max[comodes[prix[n]]]],{n,30}]

a(n) = A000720(A359612(n)).

A359612(n) = A000040(a(n)).

A381079 Number of integer partitions of n whose greatest multiplicity is equal to their sum of distinct parts.

Original entry on oeis.org

0, 1, 0, 0, 1, 1, 0, 3, 1, 3, 1, 2, 0, 7, 2, 6, 7, 11, 3, 19, 8, 22, 16, 32, 17, 48, 21, 50, 39, 71, 35, 101, 58, 120, 89, 156, 97, 228, 133, 267, 203, 352, 228, 483, 322, 571, 444, 734, 524, 989, 683, 1160, 942, 1490, 1103, 1919, 1438, 2302, 1890, 2881, 2243, 3683, 2842, 4384, 3703, 5461

Offset: 0

Gus Wiseman, Mar 03 2025

nonn

Are there only 4 zeros?

			The partition (3,2,2,1,1,1,1,1,1) has greatest multiplicity 6 and distinct parts (3,2,1) with sum 6, so is counted under a(13).
The a(1) = 1 through a(13) = 7 partitions:
  1  .  .  22  2111  .  2221   22211  333     331111  5111111   .  33331
                        22111         222111          32111111     322222
                        31111         411111                       3331111
                                                                   4411111
                                                                   61111111
                                                                   322111111
                                                                   421111111

For greatest part instead of multiplicity we have A000005.
Counting partitions by the LHS gives A091602, rank statistic A051903.
Counting partitions by the RHS gives A116861, rank statistic A066328.
These partitions are ranked by A381632, for part instead of multiplicity A246655.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A047993 counts balanced partitions, ranks A106529.
A091605 counts partitions with greatest multiplicity 2.
A240312 counts partitions with max part = max multiplicity, ranks A381542.
Cf. A027193, A047966, A048767, A051904, A212166, A237984, A239455, A241131, A362608, A363724.

Table[Length[Select[IntegerPartitions[n],Max@@Length/@Split[#]==Total[Union[#]]&]],{n,0,30}]

cp's OEIS Frontend

A364062 Number of integer partitions of n with unique co-mode 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A364158 Numbers whose multiset of prime factors has low (i.e. least) co-mode 2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A364159 Number of integer partitions of n - 1 containing fewer 1's than any other part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382302 Number of integer partitions of n with greatest part, greatest multiplicity, and number of distinct parts all equal.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A241274 Number of partitions p of n such that (number of numbers in p that have multiplicity 1) = (number of numbers in p having multiplicity > 1).

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A381439 Numbers whose exponent of 2 in their canonical prime factorization is not larger than all the other exponents.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A363745 Number of integer partitions of n whose rounded-down mean is 2.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A364191 Low co-mode in the multiset of prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A364192 High (i.e., greatest) co-mode in the multiset of prime indices of n.

Views

Author

Keywords