A327101 BII-numbers of 2-cut-connected set-systems (cut-connectivity >= 2).
4, 5, 6, 7, 16, 17, 24, 25, 32, 34, 40, 42, 52, 53, 54, 55, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107
Offset: 1
Keywords
Examples
The sequence of all 2-cut-connected set-systems together with their BII-numbers begins: 4: {{1,2}} 5: {{1},{1,2}} 6: {{2},{1,2}} 7: {{1},{2},{1,2}} 16: {{1,3}} 17: {{1},{1,3}} 24: {{3},{1,3}} 25: {{1},{3},{1,3}} 32: {{2,3}} 34: {{2},{2,3}} 40: {{3},{2,3}} 42: {{2},{3},{2,3}} 52: {{1,2},{1,3},{2,3}} 53: {{1},{1,2},{1,3},{2,3}} 54: {{2},{1,2},{1,3},{2,3}} 55: {{1},{2},{1,2},{1,3},{2,3}} 60: {{1,2},{3},{1,3},{2,3}} 61: {{1},{1,2},{3},{1,3},{2,3}} 62: {{2},{1,2},{3},{1,3},{2,3}} 63: {{1},{2},{1,2},{3},{1,3},{2,3}}
Crossrefs
Positions of numbers >= 2 in A326786.
2-cut-connected integer partitions are counted by A322387.
BII-numbers for cut-connectivity 2 are A327082.
BII-numbers for cut-connectivity 1 are A327098.
BII-numbers for non-spanning edge-connectivity >= 2 are A327102.
BII-numbers for spanning edge-connectivity >= 2 are A327109.
Covering 2-cut-connected set-systems are counted by A327112.
Covering set-systems with cut-connectivity 2 are counted by A327113.
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]]]]]]]]]; cutConnSys[vts_,eds_]:=If[Length[vts]==1,1,Min@@Length/@Select[Subsets[vts],Function[del,csm[DeleteCases[DeleteCases[eds,Alternatives@@del,{2}],{}]]!={Complement[vts,del]}]]]; Select[Range[0,100],cutConnSys[Union@@bpe/@bpe[#],bpe/@bpe[#]]>=2&]
Comments