OFFSET
0,3
COMMENTS
A multiset partition is normal if it covers an initial interval of positive integers.
LINKS
EXAMPLE
The a(0) = 1 through a(3) = 11 normal multiset partitions:
{} {{1}} {{1,1}} {{1,1,1}}
{{1,2}} {{1,1,2}}
{{1},{2}} {{1,2,2}}
{{1,2,3}}
{{1},{1,1}}
{{1},{1,2}}
{{1},{2,2}}
{{1},{2,3}}
{{2},{1,2}}
{{2},{1,3}}
{{1},{2},{3}}
MATHEMATICA
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]]]];
allnorm[n_]:=If[n<=0, {{}}, Function[s, Array[Count[s, y_/; y<=#]+1&, n]]/@Subsets[Range[n-1]+1]];
Table[Length[Select[Join@@mps/@allnorm[n], UnsameQ@@Total/@#&]], {n, 0, 5}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Jul 12 2019
STATUS
approved