A320450-OEIS公司

A320450型

其多集并集是n的整数划分的集的严格反链数。

1, 1, 1, 3, 3, 5, 10, 13, 19, 28, 47, 64, 98

抵消

0,4

链接

例子

a（1）=1到a（8）=19反链：

{{1},{2}} {{1},{3}} {{2,3}} {{2,4}}

{{1},{4}} {{1,2,3}}

{{2},{3}} {{1},{5}}

{{2},{4}}

{{1},{2,3}}

{{2},{1,3}}

{{3},{1,2}}

{{1},{2},{3}}

{{1},{6}} {{1,3,4}}

{{2},{5}} {{1},{7}}

{{3},{4}} {{2},{6}}

{{1},{2,4}} {{3},{5}}

{{2},{1,4}} {{1},{2,5}}

{{4},{1,2}} {{1},{3,4}}

{{1,2},{1,3}} {{2},{1,5}}

{{1},{2},{4}} {{3},{1,4}}

{{4},{1,3}}

{{5},{1,2}}

{{1,2},{1,4}}

{{1,2},{2,3}}

{{1},{2},{5}}

{{1},{3},{4}}

数学

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

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

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

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

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

交叉参考

关键字

非n,更多

作者

状态

经核准的