cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A320353 Number of antichains of multisets whose multiset union is an integer partition of n.

This page as a plain text file.
%I A320353 #6 Oct 12 2018 22:43:07
%S A320353 1,1,3,5,11,17,36,56,107,175,311,505,887
%N A320353 Number of antichains of multisets whose multiset union is an integer partition of n.
%H A320353 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 A320353 The a(1) = 1 through a(5) = 17 antichains:
%e A320353   {{1}}  {{2}}      {{3}}          {{4}}              {{5}}
%e A320353          {{1,1}}    {{1,2}}        {{1,3}}            {{1,4}}
%e A320353          {{1},{1}}  {{1,1,1}}      {{2,2}}            {{2,3}}
%e A320353                     {{1},{2}}      {{1,1,2}}          {{1,1,3}}
%e A320353                     {{1},{1},{1}}  {{1},{3}}          {{1,2,2}}
%e A320353                                    {{2},{2}}          {{1},{4}}
%e A320353                                    {{1,1,1,1}}        {{2},{3}}
%e A320353                                    {{2},{1,1}}        {{1,1,1,2}}
%e A320353                                    {{1,1},{1,1}}      {{1},{2,2}}
%e A320353                                    {{1},{1},{2}}      {{3},{1,1}}
%e A320353                                    {{1},{1},{1},{1}}  {{1,1,1,1,1}}
%e A320353                                                       {{1,1},{1,2}}
%e A320353                                                       {{1},{1},{3}}
%e A320353                                                       {{1},{2},{2}}
%e A320353                                                       {{2},{1,1,1}}
%e A320353                                                       {{1},{1},{1},{2}}
%e A320353                                                       {{1},{1},{1},{1},{1}}
%t A320353 sps[{}]:={{}};sps[set:{i_,___}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,___}];
%t A320353 mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
%t A320353 submultisetQ[M_,N_]:=Or[Length[M]==0,MatchQ[{Sort[List@@M],Sort[List@@N]},{{x_,Z___},{___,x_,W___}}/;submultisetQ[{Z},{W}]]];
%t A320353 antiQ[s_]:=Select[Tuples[s,2],And[UnsameQ@@#,submultisetQ@@#]&]=={};
%t A320353 Table[Length[Select[Join@@mps/@IntegerPartitions[n],antiQ]],{n,8}]
%Y A320353 Cf. A001970, A006126, A050342, A089259, A258466, A261005, A261049, A293994, A319719, A319721, A320328, A320355, A320356.
%K A320353 nonn,more
%O A320353 0,3
%A A320353 _Gus Wiseman_, Oct 11 2018