A326787 Non-spanning edge-connectivity of the set-system with BII-number n.
0, 1, 1, 0, 1, 2, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 2, 3, 1, 1, 2, 1, 0, 0, 1, 1, 1, 1, 1, 0, 2, 0, 2, 1, 3, 1, 2, 0, 1, 0, 1, 1, 1, 1, 2, 1, 1, 1, 3, 2, 2, 2, 3, 1, 1, 1, 2, 2, 2, 2, 1, 2, 2, 1, 2, 3, 3, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 3, 1, 1, 3, 4, 2
Offset: 0
Keywords
Examples
Positions of first appearances of each integer together with the corresponding set-systems: 0: {} 1: {{1}} 5: {{1},{1,2}} 21: {{1},{1,2},{1,3}} 85: {{1},{1,2},{1,3},{1,2,3}} 341: {{1},{1,2},{1,3},{1,4},{1,2,3}} 1365: {{1},{1,2},{1,3},{1,4},{1,2,3},{1,2,4}} 5461: {{1},{1,2},{1,3},{1,4},{1,2,3},{1,2,4},{1,3,4}}
Links
- Wikipedia, k-edge-connected graph
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]]]]]]]]]; eConn[sys_]:=Length[sys]-Max@@Length/@Select[Subsets[sys],Length[csm[#]]!=1&]; Table[eConn[bpe/@bpe[n]],{n,0,100}]
Comments