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

1, 1, 2, 4, 7, 13, 23, 41, 70, 123, 208, 355, 597

Offset

0,3

Links

Table of n, a(n) for n=0..12.

Goran Kilibarda and Vladeta Jovovic, Antichains of Multisets, Journal of Integer Sequences, Vol. 7 (2004).

Example

The a(1) = 1 through a(6) = 23 antichains:
  {{1}}  {{2}}    {{3}}      {{4}}        {{5}}          {{6}}
         {{1,1}}  {{1,2}}    {{1,3}}      {{1,4}}        {{1,5}}
                  {{1,1,1}}  {{2,2}}      {{2,3}}        {{2,4}}
                  {{1},{2}}  {{1,1,2}}    {{1,1,3}}      {{3,3}}
                             {{1},{3}}    {{1,2,2}}      {{1,1,4}}
                             {{1,1,1,1}}  {{1},{4}}      {{1,2,3}}
                             {{2},{1,1}}  {{2},{3}}      {{1},{5}}
                                          {{1,1,1,2}}    {{2,2,2}}
                                          {{1},{2,2}}    {{2},{4}}
                                          {{3},{1,1}}    {{1,1,1,3}}
                                          {{1,1,1,1,1}}  {{1,1,2,2}}
                                          {{1,1},{1,2}}  {{1},{2,3}}
                                          {{2},{1,1,1}}  {{2},{1,3}}
                                                         {{3},{1,2}}
                                                         {{4},{1,1}}
                                                         {{1,1,1,1,2}}
                                                         {{1,1},{1,3}}
                                                         {{1,1},{2,2}}
                                                         {{1},{2},{3}}
                                                         {{3},{1,1,1}}
                                                         {{1,1,1,1,1,1}}
                                                         {{1,2},{1,1,1}}
                                                         {{2},{1,1,1,1}}

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]]]];
submultisetQ[M_, N_]:=Or[Length[M]==0, MatchQ[{Sort[List@@M], Sort[List@@N]}, {{x_, Z___}, {___, x_, W___}}/; submultisetQ[{Z}, {W}]]];
antiQ[s_]:=Select[Tuples[s, 2], And[UnsameQ@@#, submultisetQ@@#]&]=={};
Table[Length[Select[Join@@mps/@IntegerPartitions[n], And[UnsameQ@@#, antiQ[#]]&]], {n, 10}]

Crossrefs

Cf. A001970, A258466, A261049, A319719, A319721, A320353, A320355, A320356.

Sequence in context: A168043 A114832 A239553 * A136299 A208354 A003116

Adjacent sequences: A319252 A319253 A319254 * A319256 A319257 A319258

Keyword

nonn,more

Author

Gus Wiseman, Oct 12 2018

Status

approved