%I#6 2018年9月6日15:38:14

%S 1,1,1,1,6,3,8,6,1,14,7,48,36,6,46,44,12,1,30,15200150,25560，

%电话：440120,10552440140,20,1,1,62,31720540,9036402860780,658280，

%电话：66002100300、15720256321920340、30、1126、6324081806

%N正则四边形，其中T（N，k，i）是{1，…，N}的集合分区对的数目，集合分区的相交长度为k，连接长度为i。

%e T（3,3,1）=8对集合分区：

%e{{1}、{2}、}3}{1,2,3}}

%e｛｛1｝，｛2，3｝｝｛｛1，2｝，｛3｝｝

%e{{1}，{2,3}}{{1,3}，}{2}}

%e{{1,2}，{3}}{{1}，}2,3}}

%e{{1,2}，{3}}{1,3}，}{2}}

%e{{1,3}，{2}}{{1}，}2,3}}

%e{{1,3}，{2}}{1,2}，}{3}}

%e{{1,2,3}}{{1}、{2}和{3}}

%e四角开始：

%e 11 11 11

%e 2 1 6 3 14 7 30 15

%e 8 6 1 48 36 6 200 150 25

%e 56 44 12 1 560 440 120 10

%电话：552 440 140 20 1

%t 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_，___}]：=联接@@函数[s，前缀[#，s]和/@sps[Complement[set，s]]/@Cases[子集[set]，{i，___}]；

%t spmet[a_，b_]：=删除案例[Union@@Outer[Intersection，a，b，1]，{}]；spmet[a，b，c]：=spmet[spmet[a，b]，c]；

%t表[Length[Select[Tuples[sps[Range[n]]，2]，And[Length[spmeet@@#]==k，Length[csm[Union@@#]]==j]&]]，{n，6}，{k，n}

%Y参见A000110、A000258、A001247、A008277、A048994、A059849、A060639、A181939、A318389、A318390、A318391、A318392。

%K nonn，标签

%氧1,3

%A _Gus Wiseman_，2018年8月25日