A327110 BII-numbers of set-systems with spanning edge-connectivity 3.
116, 117, 118, 119, 124, 125, 126, 127, 1796, 1797, 1798, 1799, 1904, 1905, 1906, 1907, 1908, 1909, 1910, 1911, 1912, 1913, 1914, 1915, 1916, 1917, 1918, 1919, 1924, 1925, 1926, 1927, 2032, 2033, 2034, 2035, 2036, 2037, 2038, 2039, 2040, 2041, 2042, 2043, 2044
Offset: 1
Keywords
Examples
The sequence of all set-systems with spanning edge-connectivity 3 together with their BII-numbers begins: 116: {{1,2},{1,3},{2,3},{1,2,3}} 117: {{1},{1,2},{1,3},{2,3},{1,2,3}} 118: {{2},{1,2},{1,3},{2,3},{1,2,3}} 119: {{1},{2},{1,2},{1,3},{2,3},{1,2,3}} 124: {{1,2},{3},{1,3},{2,3},{1,2,3}} 125: {{1},{1,2},{3},{1,3},{2,3},{1,2,3}} 126: {{2},{1,2},{3},{1,3},{2,3},{1,2,3}} 127: {{1},{2},{1,2},{3},{1,3},{2,3},{1,2,3}} 1796: {{1,2},{1,4},{2,4},{1,2,4}} 1797: {{1},{1,2},{1,4},{2,4},{1,2,4}} 1798: {{2},{1,2},{1,4},{2,4},{1,2,4}} 1799: {{1},{2},{1,2},{1,4},{2,4},{1,2,4}} 1904: {{1,3},{2,3},{1,2,3},{1,4},{2,4},{1,2,4}} 1905: {{1},{1,3},{2,3},{1,2,3},{1,4},{2,4},{1,2,4}} 1906: {{2},{1,3},{2,3},{1,2,3},{1,4},{2,4},{1,2,4}} 1907: {{1},{2},{1,3},{2,3},{1,2,3},{1,4},{2,4},{1,2,4}} 1908: {{1,2},{1,3},{2,3},{1,2,3},{1,4},{2,4},{1,2,4}} 1909: {{1},{1,2},{1,3},{2,3},{1,2,3},{1,4},{2,4},{1,2,4}} 1910: {{2},{1,2},{1,3},{2,3},{1,2,3},{1,4},{2,4},{1,2,4}} 1911: {{1},{2},{1,2},{1,3},{2,3},{1,2,3},{1,4},{2,4},{1,2,4}}
Crossrefs
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; csm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}],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&]; Select[Range[1000],spanEdgeConn[Union@@bpe/@bpe[#],bpe/@bpe[#]]==3&]
Comments