OFFSET
0,4
COMMENTS
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.
EXAMPLE
The normal multiset {1,2,2,2,2,3,3,4} has three multiset partitions into a set of sets:
{{2},{1,2},{2,3},{2,3,4}}
{{2},{2,3},{2,4},{1,2,3}}
{{2},{3},{1,2},{2,3},{2,4}}
so is not counted under a(8).
The a(1) = 1 through a(7) = 7 normal multisets:
{1} . {1,1,2} {1,1,2,2} {1,1,1,2,3} . {1,1,1,1,2,3,4}
{1,2,2} {1,2,2,2,3} {1,1,1,2,2,2,3}
{1,2,3,3,3} {1,1,1,2,3,3,3}
{1,2,2,2,2,3,4}
{1,2,2,2,3,3,3}
{1,2,3,3,3,3,4}
{1,2,3,4,4,4,4}
MATHEMATICA
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@@#&&And@@UnsameQ@@@#&]]==1&]], {n, 0, 5}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Mar 30 2025
STATUS
approved
