登录

OEIS由OEIS基金会的许多慷慨捐助者.

 

提示 （来自的问候整数序列在线百科全书!) A318394型 {1，…，n}的有限集分区的数目，使得任意两个集合分区满足{{1}，。。。，{n} }。 4 2, 4, 18, 316, 37492 (列表；图表；参考；听；历史；文本；内部格式) 抵消 1,1 链接 n，a（n）的表，n=1..5。 例子 a（3）=18组集合分区： 0 {{1,2,3}} {{1,3},{2}} {{1,2},{3}} {{1},{2,3}} {{1},{2},{3}} {{1,2},{3}} {{1,3},{2}} {{1},{2,3}} {{1,3},{2}} {{1},{2,3}} {{1,2},{3}} {{1},{2},{3}} {{1,2,3}} {{1},{2},{3}} {{1,3},{2}} {{1},{2},{3}} {{1,2},{3}} {{1},{2},{3}} {{1},{2,3}} {{1},{2,3}} {{1,2},{3}} {{1,3},{2}} ｛｛1｝，｛2｝，｛3｝｝｛1，2｝，｛3｝｝｛1，3｝，｛2｝｝ {{1},{2},{3}} {{1},{2,3}} {{1,3},{2}} {{1},{2},{3}} {{1},{2,3}} {{1,2},{3}} {{1},{2},{3}} {{1},{2,3}} {{1,2},{3}} {{1,3},{2}} 数学 stableSets[u_，Q_]：=如果[Length[u]===0，{{}}，With[{w=First[u]}，Join[stableSets[DeleteCases[u，w]，Q]，Prepend[#，w]&/@stableSets-[DeleteCases[u、r_/；r==w|Q[r，w]|Q[w，r]]； sps[{}]：={{}}；sps[set:{i_，___}]：=联接@@函数[s，前缀[#，s]和/@sps[Complement[set，s]]/@Cases[子集[set]，{i，___}]； spmet[a_，b_]：=删除案例[Union@@Outer[Intersection，a，b，1]，{}]；spmet[a，b，c]：=spmet[spmet[a，b]，c]； 表[Length[stableSets[sps[Range[n]]，Max@@Length/@spmet[#1，#2]>1&]]，{n，5}] 交叉参考 囊性纤维变性。A000110号,A000258号,A008277号,A059849号,A060639号,A096827型,A181939号. 囊性纤维变性。A318389型,18390年,A318391型,A318392型,A318531飞机,318532英镑,A318531飞机,A318532型. 上下文中的序列：A213793型 A287612个 A308755型*A228933型 A347514型 A306193型 相邻序列：A318391型 A318392型 A318393型*A318395型 18396年 A318397型 关键词 非n,更多 作者 古斯·怀斯曼，2018年8月25日 状态 经核准的

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

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

上次修改时间：美国东部夏令时2024年4月19日21:09。包含371798个序列。（在oeis4上运行。）