OFFSET
0,5
COMMENTS
We call a multiset non-isomorphic iff it covers an initial interval of positive integers with weakly decreasing multiplicities. The size of a multiset is the number of elements, counting multiplicity.
EXAMPLE
The a(2) = 1 through a(7) = 6 multisets:
{1,1} {1,1,1} {1,1,1,1} {1,1,1,1,1} {1,1,1,1,1,1} {1,1,1,1,1,1,1}
{1,1,1,2} {1,1,1,1,2} {1,1,1,1,1,2} {1,1,1,1,1,1,2}
{1,1,1,2,2} {1,1,1,1,2,2} {1,1,1,1,1,2,2}
{1,1,1,1,2,3} {1,1,1,1,1,2,3}
{1,1,1,2,2,2} {1,1,1,1,2,2,2}
{1,1,1,1,2,2,3}
MATHEMATICA
strnorm[n_]:=Flatten[MapIndexed[Table[#2, {#1}]&, #]]&/@IntegerPartitions[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[Length[Select[strnorm[n], Select[mps[#], UnsameQ@@Total/@#&&And@@UnsameQ@@@#&]=={}&]], {n, 0, 5}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Apr 01 2025
STATUS
approved
