A327376 BII-numbers of set-systems with vertex-connectivity 3.
2868, 2869, 2870, 2871, 2876, 2877, 2878, 2879, 2880, 2881, 2882, 2883, 2884, 2885, 2886, 2887, 2888, 2889, 2890, 2891, 2892, 2893, 2894, 2895, 2896, 2897, 2898, 2899, 2900, 2901, 2902, 2903, 2904, 2905, 2906, 2907, 2908, 2909, 2910, 2911, 2912, 2913, 2914
Offset: 1
Keywords
Examples
The sequence of all set-systems with vertex-connectivity 3 together with their BII-numbers begins: 2868: {{1,2},{1,3},{2,3},{1,4},{2,4},{3,4}} 2869: {{1},{1,2},{1,3},{2,3},{1,4},{2,4},{3,4}} 2870: {{2},{1,2},{1,3},{2,3},{1,4},{2,4},{3,4}} 2871: {{1},{2},{1,2},{1,3},{2,3},{1,4},{2,4},{3,4}} 2876: {{1,2},{3},{1,3},{2,3},{1,4},{2,4},{3,4}} 2877: {{1},{1,2},{3},{1,3},{2,3},{1,4},{2,4},{3,4}} 2878: {{2},{1,2},{3},{1,3},{2,3},{1,4},{2,4},{3,4}} 2879: {{1},{2},{1,2},{3},{1,3},{2,3},{1,4},{2,4},{3,4}} 2880: {{1,2,3},{1,4},{2,4},{3,4}} 2881: {{1},{1,2,3},{1,4},{2,4},{3,4}} 2882: {{2},{1,2,3},{1,4},{2,4},{3,4}} 2883: {{1},{2},{1,2,3},{1,4},{2,4},{3,4}} 2884: {{1,2},{1,2,3},{1,4},{2,4},{3,4}} 2885: {{1},{1,2},{1,2,3},{1,4},{2,4},{3,4}} 2886: {{2},{1,2},{1,2,3},{1,4},{2,4},{3,4}} 2887: {{1},{2},{1,2},{1,2,3},{1,4},{2,4},{3,4}} 2888: {{3},{1,2,3},{1,4},{2,4},{3,4}} 2889: {{1},{3},{1,2,3},{1,4},{2,4},{3,4}} 2890: {{2},{3},{1,2,3},{1,4},{2,4},{3,4}} 2891: {{1},{2},{3},{1,2,3},{1,4},{2,4},{3,4}}
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]]]]]]]]]; vertConnSys[vts_,eds_]:=Min@@Length/@Select[Subsets[vts],Function[del,Length[del]==Length[vts]-1||csm[DeleteCases[DeleteCases[eds,Alternatives@@del,{2}],{}]]!={Complement[vts,del]}]]; Select[Range[0,3000],vertConnSys[Union@@bpe/@bpe[#],bpe/@bpe[#]]==3&]
Comments