A382201 -id:A382201 - cp's OEIS frontend

A382459 Number of normal multisets of size n that can be partitioned into a set of sets with distinct sums in exactly one way.

1, 1, 0, 2, 1, 3, 2, 7, 4, 10, 19

Offset: 0

Gus Wiseman, Apr 01 2025

We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The size of a multiset is the number of elements, counting multiplicity.

			The normal multiset {1,2,2,2,2,3,3,4} has only one multiset partition into a set of sets with distinct sums: {{2},{1,2},{2,3},{2,3,4}}, so is counted under a(8).
The a(1) = 1 through a(7) = 7 multisets:
  {1}  .  {112}  {1122}  {11123}  {111233}  {1111234}
          {122}          {12223}  {122233}  {1112223}
                         {12333}            {1112333}
                                            {1222234}
                                            {1222333}
                                            {1233334}
                                            {1234444}

Twice-partitions of this type are counted by A279785, A270995, A358914.
Factorizations of this type are counted by A381633, A050320, A050326.
Normal multiset partitions of this type are A381718, A116540, A116539.
Multiset partitions of this type are ranked by A382201, A302478, A302494.
For at least one choice: A382216 (strict A382214), complement A382202 (strict A292432).
For the strong case see: A382430 (strict A292444), complement A382523 (strict A381996).
Without distinct sums we have A382458.
For integer partitions we have A382460, ranks A381870, strict A382079, ranks A293511.
Set multipartitions: A089259, A296119, A318360.
Normal multiset partitions: A034691, A035310, A255906.
Set systems: A050342, A296120, A318361.
Partitions: A382077 (A382200), A381992 (A382075), A382078 (A293243), A381990 (A381806).
Cf. A000110, A000670, A007716, A255903, A275780, A317532, A321469, A326519, A381078, A381441, A382428.

allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[mset_]:=Union[Sort[Sort/@(#/.x_Integer:>mset[[x]])]&/@sps[Range[Length[mset]]]];
Table[Length[Select[allnorm[n],Length[Select[mps[#],UnsameQ@@Total/@#&&And@@UnsameQ@@@#&]]==1&]],{n,0,5}]

A382304 MM-numbers of multiset partitions into sets with a common sum.

Original entry on oeis.org

1, 2, 3, 4, 5, 8, 9, 11, 13, 16, 17, 25, 27, 29, 31, 32, 41, 43, 47, 59, 64, 67, 73, 79, 81, 83, 101, 109, 113, 121, 125, 127, 128, 137, 139, 143, 149, 157, 163, 167, 169, 179, 181, 191, 199, 211, 233, 241, 243, 256, 257, 269, 271, 277, 283, 289, 293, 313, 317

Offset: 1

Gus Wiseman, Apr 01 2025

nonn

Also products of prime numbers of squarefree index with a common sum of prime indices.

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, sum A056239. 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}}.

			The terms together with their prime indices of prime indices begin:
   1: {}
   2: {{}}
   3: {{1}}
   4: {{},{}}
   5: {{2}}
   8: {{},{},{}}
   9: {{1},{1}}
  11: {{3}}
  13: {{1,2}}
  16: {{},{},{},{}}
  17: {{4}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  29: {{1,3}}
  31: {{5}}
  32: {{},{},{},{},{}}

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Set partitions of this type are counted by A035470.
Twice-partitions of this type are counted by A279788.
For just strict blocks we have A302478.
For just a common sum we have A326534, distinct sums A326535.
Factorizations of this type are counted by A382080.
For distinct instead of equal sums we have A382201.
For constant instead of strict blocks we have A382215.
Normal multiset partitions of this type are counted by A382429.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A058891 counts set-systems, covering A003465, connected A323818.
Cf. A000720, A005117, A050320, A050326, A293511, A302242, A302494, A381635, A381636, A381995.

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

Equals A302478 /\ A326534.

A383310 Number of ways to choose a strict multiset partition of a factorization of n into factors > 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 5, 2, 3, 1, 8, 1, 3, 3, 9, 1, 8, 1, 8, 3, 3, 1, 20, 2, 3, 5, 8, 1, 12, 1, 19, 3, 3, 3, 24, 1, 3, 3, 20, 1, 12, 1, 8, 8, 3, 1, 46, 2, 8, 3, 8, 1, 20, 3, 20, 3, 3, 1, 38, 1, 3, 8, 37, 3, 12, 1, 8, 3, 12, 1, 67, 1, 3, 8, 8, 3, 12, 1, 46, 9, 3

Offset: 1

Gus Wiseman, Apr 26 2025

nonn

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

The case of a unique choice (positions of 1) is A008578.
This is the strict case of A050336.
For distinct strict blocks we have A050345.
For integer partitions we have A261049, strict case of A001970.
For strict blocks that are not necessarily distinct we have A296119.
Twice-partitions of this type are counted by A296122.
For normal multisets we have A317776, strict case of A255906.
A001055 counts factorizations, strict A045778.
A050320 counts factorizations into squarefree numbers, distinct A050326.
A281113 counts twice-factorizations, strict A296121, see A296118, A296120.
Cf. A000009, A005117, A045782, A050342, A279785, A293243, A293511, A302494, A316439, A358914, A381992, A382201.

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],UnsameQ@@#&]],{y,facs[n]}],{n,30}]

A382426 MM-numbers of sets of constant multisets with distinct sums.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 14, 15, 17, 19, 21, 22, 23, 30, 31, 33, 34, 38, 41, 42, 46, 51, 53, 55, 57, 59, 62, 66, 67, 69, 77, 82, 83, 85, 93, 95, 97, 102, 103, 106, 109, 110, 114, 115, 118, 119, 123, 127, 131, 133, 134, 138, 154, 155, 157, 159, 161, 165, 166

Offset: 1

Gus Wiseman, Apr 01 2025

nonn

Also products of prime numbers of prime power index with distinct sums of prime indices.

			The terms together with their prime indices of prime indices begin:
   1: {}
   2: {{}}
   3: {{1}}
   5: {{2}}
   6: {{},{1}}
   7: {{1,1}}
  10: {{},{2}}
  11: {{3}}
  14: {{},{1,1}}
  15: {{1},{2}}
  17: {{4}}
  19: {{1,1,1}}
  21: {{1},{1,1}}
  22: {{},{3}}
  23: {{2,2}}
  30: {{},{1},{2}}

Twice-partitions of this type are counted by A279786.
For just constant blocks we have A302492.
For just distinct sums we have A326535.
Factorizations of this type are counted by A381635.
For strict instead of constant blocks we have A382201.
Normal multiset partitions of this type are counted by A382203.
For equal instead of distinct sums we have A382215.
An opposite version is A382304.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
Cf. A000688, A000720, A000961, A302242, A302494, A321469, A326534, A355743, A356065, A381636, A381716.

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

Equals A302492 /\ A326535.

cp's OEIS Frontend

A382459 Number of normal multisets of size n that can be partitioned into a set of sets with distinct sums in exactly one way.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382304 MM-numbers of multiset partitions into sets with a common sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A383310 Number of ways to choose a strict multiset partition of a factorization of n into factors > 1.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A382426 MM-numbers of sets of constant multisets with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula