|
%I #6 Jul 20 2018 22:29:48
%S 1,1,3,13,148,7685
%N Number of antichains of multisets with multiset-join a strongly normal multiset of size n.
%C An antichain of multisets is a finite set of finite nonempty multisets, none of which is a submultiset of any other. A multiset is strongly normal if it spans an initial interval of positive integers with weakly decreasing multiplicities. The multiset-join of a multiset system has the same vertices with multiplicities equal to the maxima of the multiplicities in the edges.
%H Goran Kilibarda and Vladeta Jovovic, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL7/Kilibarda/kili2.pdf">Antichains of Multisets</a>, Journal of Integer Sequences, Vol. 7 (2004).
%e The a(3) = 13 antichains of multisets:
%e (111),
%e (112), (11)(12), (2)(11),
%e (123), (13)(23), (12)(23), (12)(13), (12)(13)(23), (3)(12), (2)(13), (1)(23), (1)(2)(3).
%t stableSets[u_,Q_]:=If[Length[u]==0,{{}},With[{w=First[u]},Join[stableSets[DeleteCases[u,w],Q],Prepend[#,w]&/@stableSets[DeleteCases[u,r_/;r==w||Q[r,w]||Q[w,r]],Q]]]];
%t multijoin[mss__]:=Join@@Table[Table[x,{Max[Count[#,x]&/@{mss}]}],{x,Union[mss]}];
%t submultisetQ[M_,N_]:=Or[Length[M]==0,MatchQ[{Sort[List@@M],Sort[List@@N]},{{x_,Z___},{___,x_,W___}}/;submultisetQ[{Z},{W}]]];
%t strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
%t auu[m_]:=Select[stableSets[Union[Rest[Subsets[m]]],submultisetQ],multijoin@@#==m&];
%t Table[Length[Join@@Table[auu[m],{m,strnorm[n]}]],{n,5}]
%Y Cf. A048143, A285572, A293993, A293994, A303837, A303838, A304998, A305001.
%Y Cf. A317073, A317076, A317078, A317079.
%K nonn,more
%O 0,3
%A _Gus Wiseman_, Jul 20 2018
|
