A319255-OEIS公司

A319255型

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

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

抵消

0,3

链接

戈兰·基利巴达和弗拉德塔·乔沃维奇，多重集的反链《整数序列杂志》，第7卷（2004年）。

例子

a（1）=1到a（6）=23反链：

{{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},{2,2}} {{2},{4}}

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

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

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

{{3},{1,2}}

{{4},{1,1}}

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

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

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

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

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

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

数学

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@@#，antiQ[#]]&]]，{n，10}]

交叉参考

关键字

非n,更多

作者

状态

经核准的