A322397 Number of 2-edge-connected clutters spanning n vertices.
0, 0, 4, 71, 5927
Offset: 1
Examples
The a(3) = 4 clutters: {{1,3},{2,3}} {{1,2},{2,3}} {{1,2},{1,3}} {{1,2},{1,3},{2,3}}
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
The a(3) = 4 clutters: {{1,3},{2,3}} {{1,2},{2,3}} {{1,2},{1,3}} {{1,2},{1,3},{2,3}}
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}}
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