%I#5 2018年10月14日09:16:30

%S 1,1,2,4,6,9,18,24,39,58,92131206标准

%N多集并是N的整数划分的集的反链数。

%e a（1）=1到a（7）=24反链：

%e{{1}}{{2}}{3}}{4}}{5}}

%e{{1}，{1}}{{1,2}}{1,3}}{{1,4}}

%e{{1}，{2}}{{1{，{3}}{2,3}}

%e{{1}，{1}、{1}}{{2}、{2}{{1{、{4}}

%e｛｛1｝、｛1｝、｛2｝｝｛2｝、｛3｝｝

%e{{1}，{1}，{1{，{1}}{{1}，}{1，{3}}

%e{{1}，{2}，}

%e{{1}，{1}，{1{，{2}}

%e{{1}，{1}，{1{，{1}，}

%e、。

%电子{{6}}{{7}}

%电子{{1,5}}{{1,6}}

%电子{{2,4}}{{2,5}}

%电子{{1,2,3}}{{3,4}}

%e{{1}，{5}}{1,2,4}}

%e{{2}，{4}}{{1}，}{6}}

%e{{3}，{3}}{{2}，}{5}}

%e{{1}，{2,3}}{{3}，}{4}}

%e{{2}，{1,3}}{{1}，}2,4}}

%e{{3}，{1,2}}{{2}，}{1,4}}

%e{{1}，{1}，{4}}{4}，}{1,2}}

%e｛｛1，2｝，｛1，2｝｝｛1｝，｛1｝，｛5｝｝

%e{{1}、{2}、}3}{{1,2}和{1,3}}

%e{{2}，{2}、{2}}{{1}、{2{、{4}}

%e{{1}，{1}，{1{，{3}}{{1{3，{3{

%e{{1}，{1}，{2}，}

%e{{1}，{1}，{1{，{1'，{2}}{{1{1，{1neneneep，{2,3}}

%e{{1}，{1}，{1{，{1}

%e{{1}，{1}、{2}、{3}}

%e{{1}，{2}，}

%e{{1}，{1}，{1{，{1'，{3}}

%e{{1}，{1}，{1{，{2}，}

%e{{1}，{1}，{1{，{1}，}

%e{{1}，{1}，{1{，{1}，}

%sps[{}]：={{}}；sps[set:{i_，___}]：=联接@@函数[s，前缀[#，s]和/@sps[Complement[set，s]]/@Cases[子集[set]，{i，___}]；

%t mps[set_]：=联合[Sort[Sort/@（#/.x_Integer:>set[[x]]）]&/@sps[Range[Length[set]]]；

%t子多重集Q[M_，N_]：=或[Length[M]==0，匹配Q[{Sort[List@@M]，Sort[List@@N]}，{{x_，Z___}，}，___，x_，W___}}/；子集合Q[｛Z｝，｛W｝]]]；

%t antiQ[s_]：=选择[Tuples[s，2]，And[UnsameQ@@#，submultisetQ@@#]&]={}；

%t表[Length[Select[Join@@mps/@Integer Partitions[n]，And[And@@UnsameQ@@@#，antiQ[#]]&]]，{n，10}]

%Y参见A001970、A089259、A258466、A319719、A319721、A320328、A320353、A320355、A320356。

%K nonn，更多

%0、3

%A _Gus Wiseman_，2018年10月12日