A327111 BII-numbers of set-systems with spanning edge-connectivity 1.
1, 2, 4, 5, 6, 7, 8, 16, 17, 20, 21, 22, 23, 24, 25, 28, 29, 30, 31, 32, 34, 36, 37, 38, 39, 40, 42, 44, 45, 46, 47, 48, 49, 50, 51, 56, 57, 58, 59, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 88, 89, 90, 91, 96, 97, 98, 99
Offset: 1
Keywords
Examples
The sequence of all set-systems with spanning edge-connectivity 1 together with their BII-numbers begins: 1: {{1}} 2: {{2}} 4: {{1,2}} 5: {{1},{1,2}} 6: {{2},{1,2}} 7: {{1},{2},{1,2}} 8: {{3}} 16: {{1,3}} 17: {{1},{1,3}} 20: {{1,2},{1,3}} 21: {{1},{1,2},{1,3}} 22: {{2},{1,2},{1,3}} 23: {{1},{2},{1,2},{1,3}} 24: {{3},{1,3}} 25: {{1},{3},{1,3}} 28: {{1,2},{3},{1,3}} 29: {{1},{1,2},{3},{1,3}} 30: {{2},{1,2},{3},{1,3}} 31: {{1},{2},{1,2},{3},{1,3}} 32: {{2,3}}
Crossrefs
Graphs with spanning edge-connectivity >= 2 are counted by A095983.
BII-numbers for vertex-connectivity 1 are A327098.
BII-numbers for non-spanning edge-connectivity 1 are A327099.
BII-numbers for spanning edge-connectivity 2 are A327108.
BII-numbers for spanning edge-connectivity >= 2 are A327109.
Set-systems with spanning edge-connectivity 2 are counted by A327130.
Graphs with spanning edge-connectivity 1 are counted by A327145.
Graphs with spanning edge-connectivity 2 are counted by A327146.
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; 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&]; Select[Range[0,100],spanEdgeConn[Union@@bpe/@bpe[#],bpe/@bpe[#]]==1&]
Comments