登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A318403型 其多集并是n的整数分区的集的严格连接反链的数目。 2
1、1、1、2、2、3、4、6、8、12、13、22、31 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
0,4
链接
例子
a(1)=1到a(10)=13杂波:
{{1}} {{2}} {{3}} {{4}} {{5}} {{6}} {{7}}
{{1,2}}{1,3}}{1,4}}{1,5}}{1,6}}
{{2,3}} {{2,4}} {{2,5}}
{{1,2,3}} {{3,4}}
{{1,2,4}}
{{1,2},{1,3}}
.
{{8}} {{9}} {{10}}
{{1,7}} {{1,8}} {{1,9}}
{{2,6}} {{2,7}} {{2,8}}
{{3,5}} {{3,6}} {{3,7}}
{{1,2,5}} {{4,5}} {{4,6}}
{{1,3,4}} {{1,2,6}} {{1,2,7}}
{{1,2},{1,4}} {{1,3,5}} {{1,3,6}}
{{1,2},{2,3}} {{2,3,4}} {{1,4,5}}
{{1,2},{1,5}} {{2,3,5}}
{{1,2},{2,4}} {{1,2,3,4}}
{{1,3},{1,4}} {{1,2},{1,6}}
{{1,3},{2,3}} {{1,2},{2,5}}
{{1,3},{1,5}}
数学
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]]];
csm[s_]:=使用[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]>0]&]},如果[c=={},s,csm[Union[Append[Delete[s,List/@c[[1]]],Union@@s[[c[1]]]]];
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@@@#,Length[csm[#]]==1,antiQ[#]],{n,8}]
交叉参考
关键字
非n,更多
作者
古斯·怀斯曼2018年10月12日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年4月24日07:05。包含371920个序列。(在oeis4上运行。)