|
| |
|
| 18393年 |
| 正则四角形，其中T（n，k，i）是{1，…，n}的集合划分对的数目，集合划分的集合长度为k，集合长度为i。 |
|
20
|
|
|
|
1, 1, 2, 1, 1, 6, 3, 8, 6, 1, 1, 14, 7, 48, 36, 6, 56, 44, 12, 1, 1, 30, 15, 200, 150, 25, 560, 440, 120, 10, 552, 440, 140, 20, 1, 1, 62, 31, 720, 540, 90, 3640, 2860, 780, 65, 8280, 6600, 2100, 300, 15, 7202, 5632, 1920, 340, 30, 1, 1, 126, 63, 2408, 1806
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
链接
|
|
|
|
例子
|
T（3,3,1）=8对集合分区：
{{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,3},{2}}
{{1,3},{2}} {{1},{2,3}}
{{1,3},{2}} {{1,2},{3}}
{{1,2,3}} {{1},{2},{3}}
四角开始：
1 1 1 1 1
2 1 6 3 14 7 30 15
8 6 1 48 36 6 200 150 25
56 44 12 1 560 440 120 10
552 440 140 20 1
|
|
|
数学
|
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]]]]]；
sps[｛｝]：=｛｛｝｝；sps[set:｛i_，___｝]：=Join@@Function[s，Prepend[#，s]和/@sps[Complement[set，s]]/@Cases[Subset[set]，｛i，___｝]；
spmet[a_，b_]：=删除案例[Union@@Outer[Intersection，a，b，1]，{}]；spmet[a，b_，c__]：=spmet[spmet[a，b]，c]；
表[Length[Select[Tuples[sps[Range[n]]，2]，And[Length[spmeet@@#]==k，Length[csm[Union@@#]]==j]&]]，{n，6}，{k，n}
|
|
|
交叉参考
|
囊性纤维变性。A000110号,A000258号,A001247号,A008277号,A048994号,A059849号,A060639号,A181939号,A318389型,A318390型,A318391型,A318392型.
|
|
|
关键词
|
非n,标签
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
