A050345 -id:A050345 - cp's OEIS frontend

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

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}]

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}]

cp's OEIS Frontend

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