OFFSET
1,3
EXAMPLE
The T(3,3) = 8 pairs of set partitions:
{{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}}
Triangle begins:
1
1 2
1 6 8
1 14 48 56
1 30 200 560 552
1 62 720 3640 8280 7202
MATHEMATICA
sps[{}]:={{}}; sps[set:{i_, ___}]:=Join@@Function[s, Prepend[#, s]&/@sps[Complement[set, s]]]/@Cases[Subsets[set], {i, ___}];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]], 2], And[OrderedQ[#], UnsameQ@@#, Length[Intersection@@s[[#]]]>0]&]}, If[c=={}, s, csm[Union[Append[Delete[s, List/@c[[1]]], Union@@s[[c[[1]]]]]]]]];
spmeet[a_, b_]:=DeleteCases[Union@@Outer[Intersection, a, b, 1], {}]; spmeet[a_, b_, c__]:=spmeet[spmeet[a, b], c];
Table[Length[Select[Tuples[sps[Range[n]], 2], And[Length[spmeet@@#]==k, Length[csm[Union@@#]]==1]&]], {n, 6}, {k, n}]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gus Wiseman, Aug 25 2018
STATUS
approved