A302478 -id:A302478 - cp's OEIS frontend

A383308 Number of integer partitions of n that can be partitioned into sets with a common sum.

1, 1, 2, 3, 4, 4, 8, 6, 10, 13, 15, 13, 31

Offset: 0

Gus Wiseman, Apr 25 2025

Any strict partition can be partitioned into a single set, so we have a lower bound a(n) >= A000009(n).

			The multiset (3,2,2,1,1) has partition {{3},{1,2},{1,2}}, so is counted under a(9).
The a(1) = 1 through a(9) = 13 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)         (9)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)        (54)
             (111)  (31)    (41)     (42)      (52)       (53)        (63)
                    (1111)  (11111)  (51)      (61)       (62)        (72)
                                     (222)     (421)      (71)        (81)
                                     (321)     (1111111)  (431)       (333)
                                     (2211)               (521)       (432)
                                     (111111)             (2222)      (531)
                                                          (3311)      (621)
                                                          (11111111)  (3321)
                                                                      (32211)
                                                                      (222111)
                                                                      (111111111)

Twice-partitions of this type (into sets with a common sum) are counted by A279788.
Multiset partitions of this type are ranked by A326534 /\ A302478.
For distinct instead of equal sums we have A381992, see also A382077.
The complement is counted by A381994, ranks A381719.
Partitions of prime indices of this type are counted by A382080.
Normal multiset partitions of this type are counted by A382429, see A326518.
For constant instead of strict blocks we have A383093, ranks A383014.
A000041 counts integer partitions, strict A000009.
A001055 counts factorizations, strict A045778.
Set multipartitions: A089259, A116540, A270995, A296119, A318360.
Cf. A050320, A293511, A321455, A358914, A381633, A381717, A381993.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
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@@@#&&SameQ@@Total/@#&]]>0&]],{n,0,10}]

A383311 Number of ways to choose a set multipartition (multiset of sets) of a factorization of n into factors > 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 4, 2, 3, 1, 7, 1, 3, 3, 7, 1, 7, 1, 7, 3, 3, 1, 16, 2, 3, 4, 7, 1, 12, 1, 12, 3, 3, 3, 20, 1, 3, 3, 16, 1, 12, 1, 7, 7, 3, 1, 33, 2, 7, 3, 7, 1, 16, 3, 16, 3, 3, 1, 34, 1, 3, 7, 22, 3, 12, 1, 7, 3, 12, 1, 49, 1, 3, 7, 7, 3, 12, 1, 33, 7, 3

Offset: 1

Gus Wiseman, Apr 28 2025

nonn

First differs from A296119 at a(36) = 20, A296119(36) = 21.

			The a(36) = 20 choices are:
  {{2,3,6}}  {{2,3},{2,3}}  {{2},{3},{2,3}}  {{2},{2},{3},{3}}
  {{2,18}}   {{2},{2,9}}    {{2},{2},{9}}
  {{3,12}}   {{2},{3,6}}    {{2},{3},{6}}
  {{4,9}}    {{3},{2,6}}    {{3},{3},{4}}
  {{36}}     {{6},{2,3}}
             {{2},{18}}
             {{3},{3,4}}
             {{3},{12}}
             {{4},{9}}
             {{6},{6}}

The case of a unique choice (positions of 1) is A008578.
For multisets of multisets we have A050336.
For sets of sets we have A050345.
For normal multisets we have A116540, strong A330783.
For integer partitions instead of factorizations we have A089259.
Twice-partitions of this type are counted by A270995.
For sets of multisets we have A383310 (distinct products A296118).
A001055 counts factorizations, strict A045778.
A050320 counts factorizations into squarefree numbers, distinct A050326.
A281113 counts twice-factorizations, see A294788, A296120, A296121.
A302478 gives MM-numbers of set multipartitions.
A302494 gives MM-numbers of sets of sets.
Cf. A000009, A001970, A005117, A050342, A116539, A279785, A293243, A293511, A296119, A316439, A381992, A382077.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
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[Sum[Length[Select[mps[y], And@@UnsameQ@@@#&]], {y,facs[n]}],{n,100}]

A368603 Products of odd primes of squarefree index. MM-numbers of set multipartitions.

Original entry on oeis.org

1, 3, 5, 9, 11, 13, 15, 17, 25, 27, 29, 31, 33, 39, 41, 43, 45, 47, 51, 55, 59, 65, 67, 73, 75, 79, 81, 83, 85, 87, 93, 99, 101, 109, 113, 117, 121, 123, 125, 127, 129, 135, 137, 139, 141, 143, 145, 149, 153, 155, 157, 163, 165, 167, 169, 177, 179, 181, 187

Offset: 1

Gus Wiseman, Jan 08 2024

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 multiset of multisets with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}.

A set multipartition is a finite multiset of finite nonempty sets.

			The terms together with the corresponding set multipartitions begin:
   1: {}
   3: {{1}}
   5: {{2}}
   9: {{1},{1}}
  11: {{3}}
  13: {{1,2}}
  15: {{1},{2}}
  17: {{4}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  29: {{1,3}}
  31: {{5}}
  33: {{1},{3}}
  39: {{1},{1,2}}
  41: {{6}}
  43: {{1,4}}
  45: {{1},{1},{2}}

Odd case of A302478.
Products of odd terms of A302491.
A049311 counts non-isomorphic set multipartitions, strict A283877.
A050320 counts set multipartitions of prime indices.
A056239 adds up prime indices, row sums of A112798.
A089259 counts set multipartitions of integer partitions.
A116540 counts set multipartitions covering an initial interval by weight.
A368533 lists numbers with squarefree binary indices.
Cf. A000040, A000720, A001222, A005117, A006450, A076610, A270995, A296119, A302242, A302590, A339113.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],OddQ[#]&&And@@SquareFreeQ/@prix[#]&]

cp's OEIS Frontend

A383308 Number of integer partitions of n that can be partitioned into sets with a common sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A383311 Number of ways to choose a set multipartition (multiset of sets) of a factorization of n into factors > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A368603 Products of odd primes of squarefree index. MM-numbers of set multipartitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica