A327098 BII-numbers of set-systems with cut-connectivity 1.
1, 2, 8, 20, 21, 22, 23, 28, 29, 30, 31, 36, 37, 38, 39, 44, 45, 46, 47, 48, 49, 50, 51, 56, 57, 58, 59, 128, 260, 261, 262, 263, 272, 273, 276, 277, 278, 279, 280, 281, 284, 285, 286, 287, 292, 293, 294, 295, 300, 301, 302, 303, 304, 305, 306, 307, 308, 309
Offset: 1
Keywords
Examples
The sequence of all set-systems with cut-connectivity 1 together with their BII-numbers begins: 1: {{1}} 2: {{2}} 8: {{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}} 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}} 36: {{1,2},{2,3}} 37: {{1},{1,2},{2,3}} 38: {{2},{1,2},{2,3}} 39: {{1},{2},{1,2},{2,3}} 44: {{1,2},{3},{2,3}} 45: {{1},{1,2},{3},{2,3}} 46: {{2},{1,2},{3},{2,3}} 47: {{1},{2},{1,2},{3},{2,3}} 48: {{1,3},{2,3}}
Crossrefs
A subset of A326749.
Positions of 1's in A326786.
BII-numbers for cut-connectivity 2 are A327082.
BII-numbers for non-spanning edge-connectivity 1 are A327099.
BII-numbers for spanning edge-connectivity 1 are A327111.
Integer partitions with cut-connectivity 1 are counted by A322390.
Labeled connected separable graphs are counted by A327114.
Connected separable set-systems are counted by A327197.
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]]]]]]]]]; vertConnSys[sys_]:=If[Length[csm[sys]]!=1,0,Min@@Length/@Select[Subsets[Union@@sys],Function[del,Length[csm[DeleteCases[DeleteCases[sys,Alternatives@@del,{2}],{}]]]!=1]]]; Select[Range[0,100],vertConnSys[bpe/@bpe[#]]==1&]
Comments