A381438 -id:A381438 - cp's OEIS frontend

A381431 Heinz number of the section-sum partition of the prime indices of n.

1, 2, 3, 4, 5, 5, 7, 8, 9, 7, 11, 10, 13, 11, 11, 16, 17, 15, 19, 14, 13, 13, 23, 20, 25, 17, 27, 22, 29, 13, 31, 32, 17, 19, 17, 25, 37, 23, 19, 28, 41, 17, 43, 26, 33, 29, 47, 40, 49, 35, 23, 34, 53, 45, 19, 44, 29, 31, 59, 26, 61, 37, 39, 64, 23, 19, 67, 38

Offset: 1

Gus Wiseman, Feb 26 2025

nonn

The image first differs from A320340, A364347, A350838 in containing a(150) = 65.
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 section-sum partition (A381436) of a multiset or partition y is defined as follows: (1) determine and remember the sum of all distinct parts, (2) remove one instance of each distinct part, (3) repeat until no parts are left. The remembered values comprise the section-sum partition. For example, starting with (3,2,2,1,1) we get (6,3).
Equivalently, the k-th part of the section-sum partition is the sum of all (distinct) parts that appear at least k times. Compare to the definition of the conjugate of a partition, where we count parts >= k.
The conjugate of a section-sum partition is a Look-and-Say partition; see A048767, union A351294, count A239455.

			Prime indices of 180 are (3,2,2,1,1), with section-sum partition (6,3), so a(180) = 65.
The terms together with their prime indices begin:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
   7: {4}
  11: {5}
  10: {1,3}
  13: {6}
  11: {5}
  11: {5}
  16: {1,1,1,1}

The conjugate is A048767, union A351294, complement A351295, fix A048768 (count A217605).
Taking length instead of sum in the definition gives A238745, conjugate A181819.
Partitions of this type are counted by A239455, complement A351293.
The union is A381432, complement A381433.
Values appearing only once are A381434, more than once A381435.
These are the Heinz numbers of rows of A381436, conjugate A381440.
Greatest prime index of each term is A381437, counted by A381438.
A000040 lists the primes, differences A001223.
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A122111 represents conjugation in terms of Heinz numbers.
Set multipartitions: A050320, A089259, A116540, A270995, A296119, A318360, A318361.
Partition ideals: A300383, A317141, A381078, A381441, A381452, A381454.
Cf. A000720, A003557, A005117, A047966, A051903, A066328, A091602, A116861, A130091, A212166, A380955.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
egs[y_]:=If[y=={},{},Table[Total[Select[Union[y],Count[y,#]>=i&]],{i,Max@@Length/@Split[y]}]];
Table[Times@@Prime/@egs[prix[n]],{n,100}]

A122111(a(n)) = A048767(n).

A317081 Number of integer partitions of n whose multiplicities cover an initial interval of positive integers.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 5, 9, 11, 16, 20, 30, 34, 50, 58, 79, 96, 129, 152, 203, 243, 307, 375, 474, 563, 707, 850, 1042, 1246, 1532, 1815, 2215, 2632, 3173, 3765, 4525, 5323, 6375, 7519, 8916, 10478, 12414, 14523, 17133, 20034, 23488, 27422, 32090, 37285, 43511, 50559

Offset: 0

Gus Wiseman, Jul 21 2018

nonn

Also the number of integer partitions of n with distinct section-sums, where the k-th part of the section-sum partition is the sum of all (distinct) parts that appear at least k times. - Gus Wiseman, Apr 21 2025

			The a(1) = 1 through a(9) = 16 partitions:
 (1) (2) (3)  (4)   (5)   (6)   (7)    (8)    (9)
         (21) (31)  (32)  (42)  (43)   (53)   (54)
              (211) (41)  (51)  (52)   (62)   (63)
                    (221) (321) (61)   (71)   (72)
                    (311) (411) (322)  (332)  (81)
                                (331)  (422)  (432)
                                (421)  (431)  (441)
                                (511)  (521)  (522)
                                (3211) (611)  (531)
                                       (3221) (621)
                                       (4211) (711)
                                              (3321)
                                              (4221)
                                              (4311)
                                              (5211)
                                              (32211)

Chai Wah Wu, Table of n, a(n) for n = 0..160

The case with parts also covering an initial interval is A317088.
These partitions are ranked by A317090.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A047966 counts partitions with constant section-sums.
A048767 interchanges prime indices and prime multiplicities (Look-and-Say), see A048768.
A055932 lists numbers whose prime indices cover an initial interval.
A116540 counts normal set multipartitions.
A304442 counts partitions with equal run-sums, ranks A353833.
A381436 lists the section-sum partition of prime indices.
A381440 lists the Look-and-Say partition of prime indices.
Cf. A000837, A069799, A217605, A317082, A317084, A317085, A317087.
Cf. A003242, A116861, A239455, A353837, A364916, A381431, A381432, A381438.

normalQ[m_]:=Union[m]==Range[Max[m]];
Table[Length[Select[IntegerPartitions[n],normalQ[Length/@Split[#]]&]],{n,30}]

from sympy.utilities.iterables import partitions
def A317081(n):
    if n == 0:
        return 1
    c = 0
    for d in partitions(n):
        s = set(d.values())
        if len(s) == max(s):
            c += 1
    return c # Chai Wah Wu, Jun 22 2020

A381436 Irregular triangle read by rows where row k is the section-sum partition of the prime indices of n.

Original entry on oeis.org

1, 2, 1, 1, 3, 3, 4, 1, 1, 1, 2, 2, 4, 5, 3, 1, 6, 5, 5, 1, 1, 1, 1, 7, 3, 2, 8, 4, 1, 6, 6, 9, 3, 1, 1, 3, 3, 7, 2, 2, 2, 5, 1, 10, 6, 11, 1, 1, 1, 1, 1, 7, 8, 7, 3, 3, 12, 9, 8, 4, 1, 1, 13, 7, 14, 6, 1, 5, 2, 10, 15, 3, 1, 1, 1, 4, 4, 4, 3, 9, 7, 1, 16, 3, 2, 2

Offset: 1

Gus Wiseman, Feb 28 2025

Row-lengths are A051903.
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.
The section-sum partition of a multiset or partition y is defined as follows: (1) determine and remember the sum of all distinct parts, (2) remove one instance of each distinct part, (3) repeat until no parts are left. The remembered values comprise the section-sum partition. For example, starting with (3,2,2,1,1) we get (6,3).
Equivalently, the k-th part of the section-sum partition is the sum of all (distinct) parts that appear at least k times. Compare to the definition of the conjugate of a partition, where we count parts >= k.
The conjugate of a section-sum partition is a Look-and-Say partition; see A048767, union A351294, count A239455.

			The prime indices of 24 are (2,1,1,1), with sections ((2,1),(1),(1)), so row 24 is (3,1,1).
Triangle begins:
   1: (empty)
   2: 1
   3: 2
   4: 1 1
   5: 3
   6: 3
   7: 4
   8: 1 1 1
   9: 2 2
  10: 4
  11: 5
  12: 3 1
  13: 6
  14: 5
  15: 5
  16: 1 1 1 1

Row-lengths are A051903.
Row sums are A056239.
First part in each row is A066328.
Taking length instead of sum gives A238744, Heinz numbers A238745, conjugate A181819.
Partitions of this type are counted by A239455, complement A351293.
Heinz numbers are A381431 (union A381432, complement A381433, fixed A000961, A000005).
Rows appearing only once have Heinz numbers A381434, more than once A381435.
Last part in each row is A381437, counted by A381438.
The conjugate is A381440, Heinz numbers A048767 (union A351294, complement A351295).
A000040 lists the primes.
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents conjugation in terms of Heinz numbers.
Set multipartitions: A050320, A089259, A116540, A270995, A296119, A318360, A318361.
Partition ideals: A300383, A317141, A381078, A381441, A381452, A381454.
Cf. A000720, A001222, A003557, A005117, A047966, A116861, A130091, A380955.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
egs[y_]:=If[y=={},{},Table[Total[Select[Union[y],Count[y,#]>=i&]],{i,Max@@Length/@Split[y]}]];
Table[egs[prix[n]],{n,100}]

A381440 Irregular triangle read by rows where row k is the Look-and-Say partition of the prime indices of n.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset: 1

Gus Wiseman, Feb 28 2025

Row lengths are A066328.
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.
The Look-and-Say partition of a multiset or partition y is obtained by interchanging parts with multiplicities. For example, starting with (3,2,2,1,1) we get (2,2,2,1,1,1), the multiset union of ((1,1,1),(2,2),(2)).
The conjugate of a Look-and-Say partition is a section-sum partition; see A381431, union A381432, count A239455.

			The prime indices of 24 are (2,1,1,1), with Look-and-Say partition (3,1,1), so row 24 is (3,1,1).
The prime indices of 36 are (2,2,1,1), with Look-and-Say partition (2,2,2), so row 36 is (2,2,2).
Triangle begins:
   1: (empty)
   2: 1
   3: 1 1
   4: 2
   5: 1 1 1
   6: 1 1 1
   7: 1 1 1 1
   8: 3
   9: 2 2
  10: 1 1 1 1
  11: 1 1 1 1 1
  12: 2 1 1
  13: 1 1 1 1 1 1
  14: 1 1 1 1 1
  15: 1 1 1 1 1
  16: 4
  17: 1 1 1 1 1 1 1
  18: 2 2 1
  19: 1 1 1 1 1 1 1 1

Heinz numbers are A048767 (union A351294, complement A351295, fixed A048768, A217605).
First part in each row is A051903, conjugate A066328.
Last part in each row is A051904, conjugate A381437 (counted by A381438).
Row sums are A056239.
Row lengths are A066328.
Partitions of this type are counted by A239455, complement A351293.
The conjugate is A381436, Heinz numbers A381431 (union A381432, complement A381433).
Rows appearing only once have Heinz numbers A381540, more than once A381541.
A000040 lists the primes.
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A122111 represents conjugation in terms of Heinz numbers.
Set multipartitions: A050320, A089259, A116540, A270995, A296119, A318360, A318361.
Partition ideals: A300383, A317141, A381078, A381441, A381452, A381454.
Cf. A000720, A003557, A047966, A071178, A091602, A116861, A130091, A181819, A212166, A238744, A380955.

Table[Sort[Join@@Cases[FactorInteger[n],{p_,k_}:>ConstantArray[k,PrimePi[p]]]]//Reverse,{n,30}]

A381437 Last part of the section-sum partition of the prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Feb 28 2025

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.
The section-sum partition (A381436) of a multiset or partition y is defined as follows: (1) determine and remember the sum of all distinct parts, (2) remove one instance of each distinct part, (3) repeat until no parts are left. The remembered values comprise the section-sum partition. For example, starting with (3,2,2,1,1) we get (6,3).
Equivalently, the k-th part of the section-sum partition is the sum of all (distinct) parts that appear at least k times. Compare to the definition of the conjugate of a partition, where we count parts >= k.
The conjugate of a section-sum partition is a Look-and-Say partition; see A048767, union A351294, count A239455.

			The prime indices of 972 are {1,1,2,2,2,2,2}, with section-sum partition (3,3,2,2,2), so a(972) = 2.

Positions of first appearances are A008578.
The length of this partition is A051903.
The conjugate version is A051904.
For first instead of last part we get A066328.
These partitions are counted by A239455, complement A351293.
Positions of 1 are A360013, complement A381439.
This is the least prime index of A381431 (see A381432, A381433, A381434, A381435).
This is the last part of row n of A381436 (see A381440, A048767, A351294, A351295).
Counting partitions by this statistic gives A381438.
A000040 lists the primes, differences A001223.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents conjugation in terms of Heinz numbers.
Set multipartitions: A050320, A089259, A116540, A270995, A296119, A318360, A318361.
Cf. A000720, A001221, A001222, A003557, A047966, A116861, A130091, A181819, A380955.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
egs[y_]:=If[y=={},{},Table[Total[Select[Union[y],Count[y,#]>=i&]],{i,Max@@Length/@Split[y]}]];
Table[If[n==1,0,Last[egs[prix[n]]]],{n,100}]

a(n) = A055396(A381431(n)).

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

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).

A381544 Number of integer partitions of n not containing more ones than any other part.

Original entry on oeis.org

0, 0, 1, 2, 3, 4, 7, 8, 13, 17, 24, 30, 45, 54, 75, 97, 127, 160, 212, 263, 342, 427, 541, 672, 851, 1046, 1307, 1607, 1989, 2428, 2993, 3631, 4443, 5378, 6533, 7873, 9527, 11424, 13752, 16447, 19701, 23470, 28016, 33253, 39537, 46801, 55428, 65408, 77238

Offset: 0

Gus Wiseman, Mar 24 2025

nonn

			The a(2) = 1 through a(9) = 17 partitions:
  (2)  (3)   (4)   (5)    (6)     (7)     (8)      (9)
       (21)  (22)  (32)   (33)    (43)    (44)     (54)
             (31)  (41)   (42)    (52)    (53)     (63)
                   (221)  (51)    (61)    (62)     (72)
                          (222)   (322)   (71)     (81)
                          (321)   (331)   (332)    (333)
                          (2211)  (421)   (422)    (432)
                                  (2221)  (431)    (441)
                                          (521)    (522)
                                          (2222)   (531)
                                          (3221)   (621)
                                          (3311)   (3222)
                                          (22211)  (3321)
                                                   (4221)
                                                   (22221)
                                                   (32211)
                                                   (222111)

The complement is counted by A241131, ranks A360013 = 2*A360015 (if we prepend 1).
The Heinz numbers of these partitions are A381439.
The case of equality is A382303, ranks A360014.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A047993 counts partitions with max part = length, ranks A106529.
A091602 counts partitions by the greatest multiplicity, rank statistic A051903.
A116598 counts ones in partitions, rank statistic A007814.
A239964 counts partitions with max multiplicity = length, ranks A212166.
A240312 counts partitions with max part = max multiplicity, ranks A381542.
A382302 counts partitions with max = max multiplicity = distinct length, ranks A381543.
Cf. A047966, A091605, A116861, A232697, A237984, A362608, A363724, A381079, A381437, A381438.

Table[Length[Select[IntegerPartitions[n],Count[#,1]<=Max@@Length/@Split[DeleteCases[#,1]]&]],{n,0,30}]

A382303 Number of integer partitions of n with exactly as many ones as the next greatest multiplicity.

Original entry on oeis.org

0, 0, 0, 1, 1, 1, 3, 2, 4, 5, 8, 6, 15, 13, 19, 25, 33, 36, 54, 58, 80, 96, 122, 141, 188, 217, 274, 326, 408, 474, 600, 695, 859, 1012, 1233, 1440, 1763, 2050, 2475, 2899, 3476, 4045, 4850, 5630, 6695, 7797, 9216, 10689, 12628, 14611, 17162, 19875, 23253

Offset: 0

Gus Wiseman, Mar 24 2025

nonn

			The a(3) = 1 through a(10) = 8 partitions:
  (21)  (31)  (41)  (51)    (61)   (71)    (81)      (91)
                    (321)   (421)  (431)   (531)     (541)
                    (2211)         (521)   (621)     (631)
                                   (3311)  (32211)   (721)
                                           (222111)  (4321)
                                                     (4411)
                                                     (33211)
                                                     (42211)

First differences of A241131, ranks A360013 = 2*A360015 (if we prepend 1).
The Heinz numbers of these partitions are A360014.
Equal case of A381544 (ranks A381439).
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A047993 counts partitions with max = length, ranks A106529.
A091602 counts partitions by the greatest multiplicity, rank statistic A051903.
A116598 counts ones in partitions, rank statistic A007814.
A239964 counts partitions with max multiplicity = length, ranks A212166.
A240312 counts partitions with max = max multiplicity, ranks A381542.
A382302 counts partitions with max = max multiplicity = distinct length, ranks A381543.
Cf. A047966, A051904, A091605, A116861, A237984, A239455, A362608, A363724, A381079, A381437, A381438.

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

A382526 Number of integer partitions of n with fewer ones than greatest multiplicity.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 4, 6, 9, 12, 16, 24, 30, 41, 56, 72, 94, 124, 158, 205, 262, 331, 419, 531, 663, 829, 1033, 1281, 1581, 1954, 2393, 2936, 3584, 4366, 5300, 6433, 7764, 9374, 11277, 13548, 16225, 19425, 23166, 27623, 32842, 39004, 46212, 54719, 64610, 76251

Offset: 0

Gus Wiseman, Apr 05 2025

nonn

			The a(2) = 1 through a(9) = 12 partitions:
  (2)  (3)  (4)   (5)    (6)    (7)     (8)      (9)
            (22)  (32)   (33)   (43)    (44)     (54)
                  (221)  (42)   (52)    (53)     (63)
                         (222)  (322)   (62)     (72)
                                (331)   (332)    (333)
                                (2221)  (422)    (432)
                                        (2222)   (441)
                                        (3221)   (522)
                                        (22211)  (3222)
                                                 (3321)
                                                 (4221)
                                                 (22221)

The complement (greater than or equal to) is A241131 except first, ranks A360015.
The opposite version (greater than) is A241131 shifted except first, ranks A360013.
These partitions have ranks A382856, complement A360015.
The weak version (less than or equal to) is A381544, ranks A381439.
For equality we have A382303, ranks A360014.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A047993 counts partitions with max part = length, ranks A106529.
A091602 counts partitions by the greatest multiplicity, rank statistic A051903.
A116598 counts ones in partitions, rank statistic A007814.
A239964 counts partitions with max multiplicity = length, ranks A212166.
A240312 counts partitions with max part = max multiplicity, ranks A381542.
A382302 counts partitions with max = max multiplicity = distinct length, ranks A381543.
Cf. A047966, A091605, A116861, A232697, A237984, A362608, A363724, A381079, A381437, A381438.

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

cp's OEIS Frontend

A381431 Heinz number of the section-sum partition of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A317081 Number of integer partitions of n whose multiplicities cover an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Python

A381436 Irregular triangle read by rows where row k is the section-sum partition of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A381440 Irregular triangle read by rows where row k is the Look-and-Say partition of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A381437 Last part of the section-sum partition of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

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

A381544 Number of integer partitions of n not containing more ones than any other part.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A382303 Number of integer partitions of n with exactly as many ones as the next greatest multiplicity.