A327130 Number of set-systems covering n vertices with spanning edge-connectivity 2.
0, 0, 0, 32, 9552
Offset: 0
Examples
The a(3) = 32 set-systems: {12}{13}{23} {1}{12}{13}{23} {1}{2}{12}{13}{23} {1}{2}{3}{12}{13}{23} {12}{13}{123} {2}{12}{13}{23} {1}{3}{12}{13}{23} {1}{2}{3}{12}{13}{123} {12}{23}{123} {3}{12}{13}{23} {2}{3}{12}{13}{23} {1}{2}{3}{12}{23}{123} {13}{23}{123} {1}{12}{13}{123} {1}{2}{12}{13}{123} {1}{2}{3}{13}{23}{123} {1}{12}{23}{123} {1}{2}{12}{23}{123} {1}{13}{23}{123} {1}{2}{13}{23}{123} {2}{12}{13}{123} {1}{3}{12}{13}{123} {2}{12}{23}{123} {1}{3}{12}{23}{123} {2}{13}{23}{123} {1}{3}{13}{23}{123} {3}{12}{13}{123} {2}{3}{12}{13}{123} {3}{12}{23}{123} {2}{3}{12}{23}{123} {3}{13}{23}{123} {2}{3}{13}{23}{123}
Crossrefs
Programs
-
Mathematica
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]]; spanEdgeConn[vts_,eds_]:=Length[eds]-Max@@Length/@Select[Subsets[eds],Union@@#!=vts||Length[csm[#]]!=1&]; Table[Length[Select[Subsets[Subsets[Range[n],{1,n}]],spanEdgeConn[Range[n],#]==2&]],{n,0,3}]
Comments