A327100 BII-numbers of antichains of sets with cut-connectivity 1.
1, 2, 8, 20, 36, 48, 128, 260, 272, 276, 292, 304, 308, 320, 516, 532, 544, 548, 560, 564, 576, 768, 784, 788, 800, 804, 1040, 1056, 2064, 2068, 2080, 2084, 2096, 2100, 2112, 2304, 2308, 2324, 2336, 2352, 2560, 2564, 2576, 2596, 2608, 2816, 2820, 2832, 2848
Offset: 1
Keywords
Examples
The sequence of all antichains of sets with vertex-connectivity 1 together with their BII-numbers begins: 1: {{1}} 2: {{2}} 8: {{3}} 20: {{1,2},{1,3}} 36: {{1,2},{2,3}} 48: {{1,3},{2,3}} 128: {{4}} 260: {{1,2},{1,4}} 272: {{1,3},{1,4}} 276: {{1,2},{1,3},{1,4}} 292: {{1,2},{2,3},{1,4}} 304: {{1,3},{2,3},{1,4}} 308: {{1,2},{1,3},{2,3},{1,4}} 320: {{1,2,3},{1,4}} 516: {{1,2},{2,4}} 532: {{1,2},{1,3},{2,4}} 544: {{2,3},{2,4}} 548: {{1,2},{2,3},{2,4}} 560: {{1,3},{2,3},{2,4}} 564: {{1,2},{1,3},{2,3},{2,4}}
Crossrefs
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]]]]]]]]]; stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,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],stableQ[bpe/@bpe[#],SubsetQ]&&cutConnSys[Union@@bpe/@bpe[#],bpe/@bpe[#]]==1&]
Comments