A381454 -id:A381454 - cp's OEIS frontend

A381992 Number of integer partitions of n that can be partitioned into sets with distinct sums.

1, 1, 1, 2, 3, 5, 6, 9, 13, 17, 25, 33, 44, 59, 77, 100, 134, 170, 217, 282, 360, 449, 571, 719, 899, 1122, 1391, 1727, 2136, 2616, 3209, 3947, 4800, 5845, 7094, 8602, 10408, 12533, 15062, 18107, 21686, 25956, 30967, 36936, 43897, 52132, 61850, 73157, 86466, 101992, 120195

Offset: 0

Gus Wiseman, Mar 16 2025

nonn

Also the number of integer partitions of n whose Heinz number belongs to A382075 (can be written as a product of squarefree numbers with distinct sums of prime indices).

			There are 6 ways to partition (3,2,2,1) into sets:
  {{2},{1,2,3}}
  {{1,2},{2,3}}
  {{1},{2},{2,3}}
  {{2},{2},{1,3}}
  {{2},{3},{1,2}}
  {{1},{2},{2},{3}}
Of these, 3 have distinct block sums:
  {{2},{1,2,3}}
  {{1,2},{2,3}}
  {{1},{2},{2,3}}
so (3,2,2,1) is counted under a(8).
The a(1) = 1 through a(8) = 13 partitions:
  (1)  (2)  (3)    (4)      (5)      (6)        (7)        (8)
            (2,1)  (3,1)    (3,2)    (4,2)      (4,3)      (5,3)
                   (2,1,1)  (4,1)    (5,1)      (5,2)      (6,2)
                            (2,2,1)  (3,2,1)    (6,1)      (7,1)
                            (3,1,1)  (4,1,1)    (3,2,2)    (3,3,2)
                                     (2,2,1,1)  (3,3,1)    (4,2,2)
                                                (4,2,1)    (4,3,1)
                                                (5,1,1)    (5,2,1)
                                                (3,2,1,1)  (6,1,1)
                                                           (3,2,2,1)
                                                           (3,3,1,1)
                                                           (4,2,1,1)
                                                           (3,2,1,1,1)

More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
Twice-partitions of this type are counted by A279785.
Multiset partitions of this type are counted by A381633, zeros of A381634.
For constant instead of strict blocks see A381717, A381636, A381635, A381716, A381991.
Normal multiset partitions of this type are counted by A381718, see A116539.
The complement is counted by A381990, ranked by A381806.
These partitions are ranked by A382075.
For distinct blocks instead of sums we have A382077, complement A382078.
For a unique choice we have A382079.
A000041 counts integer partitions, strict A000009.
A050320 counts multiset partitions of prime indices into sets.
A050326 counts multiset partitions of prime indices into distinct sets.
A265947 counts refinement-ordered pairs of integer partitions.
A382201 lists MM-numbers of sets with distinct sums.
Cf. A002846, A047966, A213427, A279786, A299202, A317142, A381870.
Cf. A293243, A293511, A358914, A381078, A381441, A381454.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Table[Length[Select[IntegerPartitions[n],Length[Select[mps[#], And@@UnsameQ@@@#&&UnsameQ@@Total/@#&]]>0&]],{n,0,10}]

a(21)-a(50) from Bert Dobbelaere, Mar 29 2025

A381078 Number of multisets that can be obtained by partitioning the prime indices of n into a multiset of sets (set multipartition) and taking their sums.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 5, 1, 1, 2, 2, 2, 3, 1, 2, 2, 2, 1, 5, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 1, 6, 1, 2, 2, 1, 2, 5, 1, 2, 2, 5, 1, 3, 1, 2, 2, 2, 2, 5, 1, 2, 1, 2, 1, 6, 2, 2, 2

Offset: 1

Gus Wiseman, Mar 05 2025

nonn

First differs from A050320 at a(210) = 13, A050320(210) = 15. This comes from the set multipartitions {{3},{1,2,4}} and {{1,2},{3,4}}, and from {{4},{1,2,3}} and {{1,3},{2,4}}.
Also the number of multisets that can be obtained by taking the sums of prime indices of each factor in a factorization of n into squarefree numbers > 1.
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.
A multiset partition can be regarded as an arrow in the ranked poset of integer partitions. For example, we have {{1},{1,2},{1,3},{1,2,3}}: {1,1,1,1,2,2,3,3} -> {1,3,4,6}, or (33221111) -> (6431) (depending on notation).
Set multipartitions are generally not transitive. For example, we have arrows: {{1},{1,2}}: {1,1,2} -> {1,3} and {{1,3}}: {1,3} -> {4}, but there is no set multipartition {1,1,2} -> {4}.

			The prime indices of 60 are {1,1,2,3}, with set multipartitions:
  {{1},{1,2,3}}
  {{1,2},{1,3}}
  {{1},{1},{2,3}}
  {{1},{2},{1,3}}
  {{1},{3},{1,2}}
  {{1},{1},{2},{3}}
with block-sums: {1,6}, {3,4}, {1,1,5}, {1,2,4}, {1,3,3}, {1,1,2,3}, which are all different multisets, so a(60) = 6.

Robert Price, Table of n, a(n) for n = 1..1000

Before taking sums we had A050320, strict A050326 (zeros A293243), distinct sums A381633.
For distinct blocks we have A381441.
The lower version is A381454.
For distinct block-sums we have A381634.
Other multiset partitions of prime indices:
- For multisets of constant multisets (A000688) see A381455 (upper), A381453 (lower).
- For multiset partitions (A001055) see A317141 (upper), A300383 (lower).
- For strict multiset partitions (A045778) see A381452.
- For sets of constant multisets (A050361) see A381717.
- For strict multiset partitions with distinct sums (A321469) see A381637.
- For sets of constant multisets with distinct sums (A381635) see A381716, A381636.
More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
A000041 counts integer partitions, strict A000009.
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.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A000720, A001222, A002846, A005117, A025487, A066328, A213242, A213385, A213427, A299201, A299202, A300385.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
sqfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[sqfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],SquareFreeQ]}]];
Table[Length[Union[Sort[hwt/@#]&/@sqfacs[n]]],{n,100}]

a(A002110(n)) = A066723(n).

A381453 Number of multisets that can be obtained by choosing a constant integer partition of each prime index of n and taking the multiset union.

Original entry on oeis.org

1, 1, 2, 1, 2, 2, 3, 1, 3, 2, 2, 2, 4, 3, 4, 1, 2, 3, 4, 2, 6, 2, 3, 2, 3, 4, 4, 3, 4, 4, 2, 1, 4, 2, 6, 3, 6, 4, 8, 2, 2, 6, 4, 2, 6, 3, 4, 2, 6, 3, 4, 4, 5, 4, 4, 3, 8, 4, 2, 4, 6, 2, 8, 1, 8, 4, 2, 2, 6, 6, 6, 3, 4, 6, 6, 4, 6, 8, 4, 2, 5, 2, 2, 6, 4, 4, 8

Offset: 1

Gus Wiseman, Mar 08 2025

nonn

First differs from A355733 and A355735 at a(21) = 6, A355733(21) = A355735(21) = 5.
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.
A multiset partition can be regarded as an arrow in the ranked poset of integer partitions. For example, we have {{1},{1,2},{1,3},{1,2,3}}: {1,1,1,1,2,2,3,3} -> {1,3,4,6}, or (33221111) -> (6431) (depending on notation).
Multisets of constant multisets are generally not transitive. For example, we have arrows: {{1,1},{2}}: {1,1,2} -> {2,2} and {{2,2}}: {2,2} -> {4}, but there is no multiset of constant multisets {1,1,2} -> {4}.

			The a(21) = 6 multisets are: {2,4}, {1,1,4}, {2,2,2}, {1,1,2,2}, {2,1,1,1,1}, {1,1,1,1,1,1}.
The a(n) partitions for n = 1, 3, 7, 13, 53, 21 (G = 16):
  ()  (2)   (4)     (6)       (G)                 (42)
      (11)  (22)    (33)      (88)                (411)
            (1111)  (222)     (4444)              (222)
                    (111111)  (22222222)          (2211)
                              (1111111111111111)  (21111)
                                                  (111111)

Robert Price, Table of n, a(n) for n = 1..300

Positions of 1 are A000079.
The strict case is A008966.
Before sorting we had A355731.
Choosing divisors instead of constant multisets gives A355733.
The upper version is A381455, before taking sums A000688.
Multiset partitions of prime indices:
- For multiset partitions (A001055) see A317141 (upper), A300383 (lower).
- For strict multiset partitions (A045778) see A381452.
- For set multipartitions (A050320) see A381078 (upper), A381454 (lower).
- For set systems (A050326, zeros A293243) see A381441 (upper).
- For sets of constant multisets (A050361) see A381715.
- For strict multiset partitions with distinct sums (A321469) see A381637.
- For set systems with distinct sums (A381633, zeros A381806) see A381634.
- For sets of constant multisets with distinct sums (A381635, zeros A381636) see A381716.
More on multiset partitions into constant blocks: A006171, A279784, A295935.
A000041 counts integer partitions, strict A000009.
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.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A000720, A000961, A001222, A002577, A018818, A213242, A213385, A213427, A275870, A299200, A300273, A300385.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Union[Sort/@Join@@@Tuples[Select[IntegerPartitions[#],SameQ@@#&]&/@prix[n]]]],{n,nn}]

a(A002110(n)) = A381807(n).

A381455 Number of multisets that can be obtained by taking the sum of each block of a multiset partition of the prime indices of n into a multiset of constant multisets.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 1, 5, 1, 2, 1, 2, 1, 1, 1, 3, 2, 1, 3, 2, 1, 1, 1, 7, 1, 1, 1, 4, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 5, 2, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 2, 1, 1, 2, 11, 1, 1, 1, 2, 1, 1, 1, 6, 1, 1, 2, 2, 1, 1, 1, 5, 5, 1, 1, 2, 1, 1, 1

Offset: 1

Gus Wiseman, Mar 06 2025

nonn

First differs from A000688 at a(144) = 9, A000688(144) = 10.
First differs from A295879 at a(128) = 15, A295879(128) = 13.
Also the number of multisets that can be obtained by taking the sums of prime indices of each factor in a factorization of n into prime powers > 1.
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.
A multiset partition can be regarded as an arrow in the ranked poset of integer partitions. For example, we have {{1},{1,2},{1,3},{1,2,3}}: {1,1,1,1,2,2,3,3} -> {1,3,4,6}, or (33221111) -> (6431) (depending on notation).
Multisets of constant multisets are generally not transitive. For example, we have arrows: {{1,1},{2}}: {1,1,2} -> {2,2} and {{2,2}}: {2,2} -> {4}, but there is no multiset of constant multisets {1,1,2} -> {4}.

			The prime indices of 36 are {1,1,2,2}, with the following 4 partitions into a multiset of constant multisets:
  {{1,1},{2,2}}
  {{1},{1},{2,2}}
  {{2},{2},{1,1}}
  {{1},{1},{2},{2}}
with block-sums: {2,4}, {1,1,4}, {2,2,2}, {1,1,2,2}, which are all different, so a(36) = 4.
The prime indices of 144 are {1,1,1,1,2,2}, with the following 10 partitions into a multiset of constant multisets:
  {{2,2},{1,1,1,1}}
  {{1},{2,2},{1,1,1}}
  {{2},{2},{1,1,1,1}}
  {{1,1},{1,1},{2,2}}
  {{1},{1},{1,1},{2,2}}
  {{1},{2},{2},{1,1,1}}
  {{2},{2},{1,1},{1,1}}
  {{1},{1},{1},{1},{2,2}}
  {{1},{1},{2},{2},{1,1}}
  {{1},{1},{1},{1},{2},{2}}
with block-sums: {4,4}, {1,3,4}, {2,2,4}, {2,2,4}, {1,1,2,4}, {1,2,2,3}, {2,2,2,2}, {1,1,1,1,4}, {1,1,2,2,2}, {1,1,1,1,2,2}, of which 9 are distinct, so a(144) = 9.
The a(n) partitions for n = 4, 8, 16, 32, 36, 64, 72, 128:
  (2)   (3)    (4)     (5)      (42)    (6)       (43)     (7)
  (11)  (21)   (22)    (32)     (222)   (33)      (322)    (43)
        (111)  (31)    (41)     (411)   (42)      (421)    (52)
               (211)   (221)    (2211)  (51)      (2221)   (61)
               (1111)  (311)            (222)     (4111)   (322)
                       (2111)           (321)     (22111)  (331)
                       (11111)          (411)              (421)
                                        (2211)             (511)
                                        (3111)             (2221)
                                        (21111)            (3211)
                                        (111111)           (4111)
                                                           (22111)
                                                           (31111)
                                                           (211111)
                                                           (1111111)

Robert Price, Table of n, a(n) for n = 1..1000

Before taking sums we had A000688.
Positions of 1 are A005117.
There is a chain from the prime indices of n to a singleton iff n belongs to A300273.
The lower version is A381453.
For distinct blocks we have A381715, before sum A050361.
For distinct block-sums we have A381716, before sums A381635 (zeros A381636).
Other multiset partitions of prime indices:
- For multiset partitions (A001055) see A317141 (upper), A300383 (lower).
- For strict multiset partitions (A045778) see A381452.
- For set multipartitions (A050320) see A381078 (upper), A381454 (lower).
- For set systems (A050326) see A381441 (upper).
- For strict multiset partitions with distinct sums (A321469) see A381637.
- For set systems with distinct sums (A381633) see A381634, A293243.
More on multiset partitions into constant blocks: A006171, A279784, A295935.
A000041 counts integer partitions, strict A000009.
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.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A000720, A001222, A002577, A002846, A018818, A213242, A213427, A275870, A289078, A299200, A299202, A300385.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
sqfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[sqfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],PrimePowerQ]}]];
Table[Length[Union[Sort[hwt/@#]&/@sqfacs[n]]],{n,100}]

a(s) = 1 for any squarefree number s.

a(p^k) = A000041(k) for any prime p.

A383707 Heinz numbers of maximally refined strict integer partitions.

Original entry on oeis.org

1, 2, 3, 6, 10, 14, 15, 30, 42, 66, 70, 78, 105, 110, 182, 210, 330, 390

Offset: 1

Gus Wiseman, May 15 2025

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.
Also squarefree numbers such that every strict partition of a prime index contains a prime index.
Also squarefree numbers such that no prime index is a sum of distinct non prime indices.

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    3: {2}
    6: {1,2}
   10: {1,3}
   14: {1,4}
   15: {2,3}
   30: {1,2,3}
   42: {1,2,4}
   66: {1,2,5}
   70: {1,3,4}
   78: {1,2,6}
  105: {2,3,4}
  110: {1,3,5}
  182: {1,4,6}
  210: {1,2,3,4}
  330: {1,2,3,5}
  390: {1,2,3,6}

Partitions of this type are counted by A179009.
Appears to be positions of 1 in A383706.
For distinct prime indices see A384320.
The proper version appears to be A384390.
The conjugate version is A384723.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
Cf. A048767, A130091, A299200, A351294, A381432, A351295, A357982, A381454, A382525, A384321, A384349, A384389.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
nonsets[y_]:=If[Length[y]==0,{},Rest[Subsets[Complement[Range[Max@@y],y]]]];
Select[Range[30],SquareFreeQ[#]&&With[{y=prix[#]},Intersection[y,Total/@nonsets[y]]=={}]&]

A381990 Number of integer partitions of n that cannot be partitioned into a set (or multiset) of sets with distinct sums.

Original entry on oeis.org

0, 0, 1, 1, 2, 2, 5, 6, 9, 13, 17, 23, 33, 42, 58, 76, 97, 127, 168, 208, 267, 343, 431, 536, 676, 836, 1045, 1283, 1582, 1949, 2395, 2895, 3549, 4298, 5216, 6281, 7569, 9104, 10953, 13078, 15652, 18627, 22207, 26325, 31278, 37002, 43708, 51597, 60807, 71533, 84031

Offset: 0

Gus Wiseman, Mar 15 2025

nonn

			The partition y = (3,3,3,2,2,1,1,1,1) has only one multiset partition into a set of sets, namely {{1},{3},{1,2},{1,3},{1,2,3}}, but this does not have distinct sums, so y is counted under a(17).
The a(2) = 1 through a(8) = 9 partitions:
  (11)  (111)  (22)    (2111)   (33)      (2221)     (44)
               (1111)  (11111)  (222)     (4111)     (2222)
                                (3111)    (22111)    (5111)
                                (21111)   (31111)    (22211)
                                (111111)  (211111)   (41111)
                                          (1111111)  (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)

More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
Twice-partitions of this type are counted by A279785.
For constant instead of strict blocks see A381717, A381636, A381635, A381716, A381991.
Normal multiset partitions of this type are counted by A381718, see A116539.
These partitions are ranked by A381806, zeros of A381634 and A381633.
The complement is counted by A381992, ranked by A382075.
For distinct blocks we have A382078, complement A382077, unique A382079.
MM-numbers of these multiset partitions (strict blocks with distinct sum) are A382201.
A000041 counts integer partitions, strict A000009.
A050320 counts multiset partitions of prime indices into sets.
A050326 counts multiset partitions of prime indices into distinct sets.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A002846, A047966, A213427, A279786, A299202, A317142, A381870.
Cf. A293243, A293511, A358914, A381078, A381441, A381454.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Table[Length[Select[IntegerPartitions[n],Length[Select[mps[#],And@@UnsameQ@@@#&&UnsameQ@@Total/@#&]]==0&]],{n,0,10}]

a(21)-a(50) from Bert Dobbelaere, Mar 29 2025

A384321 Numbers whose distinct prime indices are not maximally refined.

Original entry on oeis.org

5, 7, 11, 13, 17, 19, 21, 22, 23, 25, 26, 29, 31, 33, 34, 35, 37, 38, 39, 41, 43, 46, 47, 49, 51, 53, 55, 57, 58, 59, 61, 62, 65, 67, 69, 71, 73, 74, 77, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 102, 103, 106, 107, 109, 111, 113, 114, 115, 118, 119

Offset: 1

Gus Wiseman, Jun 01 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.
Given a partition, the following are equivalent:
1) The distinct parts are maximally refined.
2) Every strict partition of a part contains a part. In other words, if y is the set of parts and z is any strict partition of any element of y, then z must contain at least one element from y.
3) No part is a sum of distinct non-parts.

			The prime indices of 25 are {3,3}, which has refinements: ((3),(1,2)) and ((1,2),(3)), so 25 is in the sequence.
The prime indices of 102 are {1,2,7}, which has refinement ((1),(2),(3,4)), so 102 is in the sequence.
The terms together with their prime indices begin:
     5: {3}      39: {2,6}      73: {21}
     7: {4}      41: {13}       74: {1,12}
    11: {5}      43: {14}       77: {4,5}
    13: {6}      46: {1,9}      79: {22}
    17: {7}      47: {15}       82: {1,13}
    19: {8}      49: {4,4}      83: {23}
    21: {2,4}    51: {2,7}      85: {3,7}
    22: {1,5}    53: {16}       86: {1,14}
    23: {9}      55: {3,5}      87: {2,10}
    25: {3,3}    57: {2,8}      89: {24}
    26: {1,6}    58: {1,10}     91: {4,6}
    29: {10}     59: {17}       93: {2,11}
    31: {11}     61: {18}       94: {1,15}
    33: {2,5}    62: {1,11}     95: {3,8}
    34: {1,7}    65: {3,6}      97: {25}
    35: {3,4}    67: {19}      101: {26}
    37: {12}     69: {2,9}     102: {1,2,7}
    38: {1,8}    71: {20}      103: {27}

These appear to be positions of terms > 1 in A383706, non-disjoint A357982, non-strict A299200.
The strict complement is A383707, counted by A179009.
Partitions of this type appear to be counted by A384317.
The complement is A384320.
The strict (squarefree) case appears to be A384322, counted by A384318.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A239455 counts Look-and-Say partitions, ranks A351294 or A381432.
A279790 and A279375 count ways to choose disjoint strict partitions of prime indices.
A351293 counts non-Look-and-Say partitions, ranks A351295 or A381433.
Cf. A098859, A122111, A130091, A317142, A326080, A381454, A382525, A384005, A384323, A384390.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
nonsets[y_]:=If[Length[y]==0,{},Rest[Subsets[Complement[Range[Max@@y],y]]]];
Select[Range[30],With[{y=Union[prix[#]]},UnsameQ@@y&&Intersection[y,Total/@nonsets[y]]!={}]&]

A382077 Number of integer partitions of n that can be partitioned into a set of sets.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 6, 9, 13, 17, 25, 33, 44, 59, 77, 100, 134, 171, 217, 283, 361, 449, 574, 721, 900, 1126, 1397, 1731, 2143, 2632, 3223, 3961, 4825, 5874, 7131, 8646, 10452, 12604, 15155, 18216, 21826, 26108, 31169, 37156, 44202, 52492, 62233, 73676, 87089, 102756, 121074

Offset: 0

Gus Wiseman, Mar 18 2025

nonn

First differs from A240306 at a(14) = 76, A240306(14) = 77.

First differs from A381992 at a(17) = 171, A381992(17) = 170.

			For y = (3,2,2,2,1,1,1), we have the multiset partition {{1},{2},{1,2},{1,2,3}}, so y is counted under a(12).
The a(1) = 1 through a(8) = 13 partitions:
  (1)  (2)  (3)    (4)      (5)      (6)        (7)        (8)
            (2,1)  (3,1)    (3,2)    (4,2)      (4,3)      (5,3)
                   (2,1,1)  (4,1)    (5,1)      (5,2)      (6,2)
                            (2,2,1)  (3,2,1)    (6,1)      (7,1)
                            (3,1,1)  (4,1,1)    (3,2,2)    (3,3,2)
                                     (2,2,1,1)  (3,3,1)    (4,2,2)
                                                (4,2,1)    (4,3,1)
                                                (5,1,1)    (5,2,1)
                                                (3,2,1,1)  (6,1,1)
                                                           (3,2,2,1)
                                                           (3,3,1,1)
                                                           (4,2,1,1)
                                                           (3,2,1,1,1)

Factorizations of this type are counted by A050345.
More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
Normal multiset partitions of this type are counted by A116539.
The MM-numbers of these multiset partitions are A302494.
Twice-partitions of this type are counted by A358914.
For distinct block-sums instead of blocks we have A381992, ranked by A382075.
The complement is counted by A382078, unique A382079.
These partitions are ranked by A382200, complement A293243.
For normal multisets instead of integer partitions we have A382214, complement A292432.
A000041 counts integer partitions, strict A000009.
A050320 counts multiset partitions of prime indices into sets.
A050326 counts multiset partitions of prime indices into distinct sets.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A292444, A293511, A299202, A317142, A381441, A381454, A381717, A381718, A381870, A381990.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]& /@ sps[Range[Length[set]]]];
Table[Length[Select[IntegerPartitions[n], Length[Select[mps[#],UnsameQ@@#&&And@@UnsameQ@@@#&]]>0&]],{n,0,9}]

a(21)-a(50) from Bert Dobbelaere, Mar 29 2025

A383533 Number of integer partitions of n with no ones such that it is possible to choose a family of pairwise disjoint strict integer partitions, one of each part.

Original entry on oeis.org

1, 0, 1, 1, 1, 2, 3, 3, 4, 5, 8, 8, 11, 13, 17, 22, 25, 30, 37, 44, 53, 69, 77, 93, 111, 130, 153, 181, 220, 249, 295

Offset: 0

Gus Wiseman, May 07 2025

The Heinz numbers of these partitions are the odd terms of A382913.

Also the number of integer partitions y of n with no ones such that the normal multiset (in which i appears y_i times) is a Look-and-Say partition.

			For y = (3,3) we can choose disjoint strict partitions ((2,1),(3)), so (3,3) is counted under a(6).
The a(2) = 1 through a(10) = 8 partitions:
  (2)  (3)  (4)  (5)    (6)    (7)    (8)    (9)      (10)
                 (3,2)  (3,3)  (4,3)  (4,4)  (5,4)    (5,5)
                        (4,2)  (5,2)  (5,3)  (6,3)    (6,4)
                                      (6,2)  (7,2)    (7,3)
                                             (4,3,2)  (8,2)
                                                      (4,3,3)
                                                      (4,4,2)
                                                      (5,3,2)

The number of such families is A383706.
Allowing ones gives A383708 (ranks A382913), complement A383710 (ranks A382912).
The complement is counted by A383711.
A048767 is the Look-and-Say transform, fixed points A048768 (counted by A217605).
A098859 counts partitions with distinct multiplicities, compositions A242882.
A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.
A351293 counts non-Look-and-Say or non-section-sum partitions, ranks A351295 or A381433.
Cf. A044813, A047966, A089259, A116540, A130091, A317141, A318361, A381441, A381454, A383013.

pof[y_]:=Select[Join@@@Tuples[IntegerPartitions/@y], UnsameQ@@#&];
Table[Length[Select[IntegerPartitions[n], FreeQ[#,1]&&!pof[#]=={}&]],{n,0,15}]

A381634 Number of multisets that can be obtained by taking the sum of each block of a set multipartition (multiset of sets) of the prime indices of n with distinct block-sums.

Original entry on oeis.org

1, 1, 1, 0, 1, 2, 1, 0, 0, 2, 1, 1, 1, 2, 2, 0, 1, 1, 1, 1, 2, 2, 1, 0, 0, 2, 0, 1, 1, 4, 1, 0, 2, 2, 2, 1, 1, 2, 2, 0, 1, 5, 1, 1, 1, 2, 1, 0, 0, 1, 2, 1, 1, 0, 2, 0, 2, 2, 1, 3, 1, 2, 1, 0, 2, 5, 1, 1, 2, 4, 1, 0, 1, 2, 1, 1, 2, 5, 1, 0, 0, 2, 1, 4, 2, 2, 2

Offset: 1

Gus Wiseman, Mar 06 2025

nonn

First differs from A050326 at a(30) = 4, A050326(30) = 5.
First differs from A339742 at a(42) = 5, A339742(42) = 4.
First differs from A381441 at a(30) = 4, A381441(30) = 5.
First differs from A381633 at a(210) = 10, A381633(210) = 12.
Also the number of multisets that can be obtained by taking the sums of prime indices of each factor in a factorization of n into squarefree numbers > 1 with distinct sums of prime indices (A056239).
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.
A multiset partition con be regarded as an arrow in the ranked poset of integer partitions. For example, we have {{1},{1,2},{1,3},{1,2,3}}: {1,1,1,1,2,2,3,3} -> {1,3,4,6}, or (33221111) -> (6431) (depending on notation).
Set multipartitions with distinct block-sums are generally not transitive. For example, we have arrows: {{1},{1,2}}: {1,1,2} -> {1,3} and {{1,3}}: {1,3} -> {4}, but there is no arrow {1,1,2} -> {4}.

			The prime indices of 120 are {1,1,2,3}, with 3 ways:
  {{1},{1,2,3}}
  {{1,2},{1,3}}
  {{1},{2},{1,3}}
with block-sums: {1,6}, {3,4}, {1,2,4}, so a(120) = 3.
The prime indices of 210 are {1,2,3,4}, with 12 ways:
  {{1,2,3,4}}
  {{1},{2,3,4}}
  {{2},{1,3,4}}
  {{3},{1,2,4}}
  {{4},{1,2,3}}
  {{1,2},{3,4}}
  {{1,3},{2,4}}
  {{1},{2},{3,4}}
  {{1},{3},{2,4}}
  {{1},{4},{2,3}}
  {{2},{3},{1,4}}
  {{1},{2},{3},{4}}
with block-sums: {10}, {1,9}, {2,8}, {3,7}, {4,6}, {3,7}, {4,6}, {1,2,7}, {1,3,6}, {1,4,5}, {2,3,5}, {1,2,3,4}, of which 10 are distinct, so a(210) = 10.

Without distinct block-sums we have A381078 (lower A381454), before sums A050320.
For distinct blocks instead of sums we have A381441, before sums A050326, see A358914.
Before taking sums we had A381633.
Positions of 0 are A381806.
Positions of 1 are A381870, superset of A293511.
More on set multipartitions with distinct sums: A279785, A381717, A381718.
A001055 counts multiset partitions, see A317141 (upper), A300383 (lower).
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A000720, A001222, A002846, A005117, A116540, A213242, A213385, A213427, A299202, A300385, A317142, A317143, A318360.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
sfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[sfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],SquareFreeQ]}]];
Table[Length[Union[Sort[hwt/@#]&/@Select[sfacs[n],UnsameQ@@hwt/@#&]]],{n,100}]

cp's OEIS Frontend

A381992 Number of integer partitions of n that can be partitioned into sets with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A381078 Number of multisets that can be obtained by partitioning the prime indices of n into a multiset of sets (set multipartition) and taking their sums.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A381453 Number of multisets that can be obtained by choosing a constant integer partition of each prime index of n and taking the multiset union.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A381455 Number of multisets that can be obtained by taking the sum of each block of a multiset partition of the prime indices of n into a multiset of constant multisets.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A383707 Heinz numbers of maximally refined strict integer partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A381990 Number of integer partitions of n that cannot be partitioned into a set (or multiset) of sets with distinct sums.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions

A384321 Numbers whose distinct prime indices are not maximally refined.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382077 Number of integer partitions of n that can be partitioned into a set of sets.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica