multsubs[set_,k_]:=如果[k==0,{{}},连接@@表[Prepend[#,set[[i]]&/@multsubs[Drop[set,i-1],k-1],{i,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]]]]];
表[Length[Select[multsubs[Range[n+1],2],n],And[Union@@#=Range[Max@@Union@@#],Length[csm[#]==1]&]],{n,5}]