A329625 Smallest BII-number of a connected set-system with n edges.
0, 1, 5, 7, 23, 31, 63, 127, 383, 511, 1023, 2047, 4095, 8191
Offset: 0
Examples
The sequence of terms together with their corresponding set-systems begins: 0: {} 1: {{1}} 5: {{1},{1,2}} 7: {{1},{2},{1,2}} 23: {{1},{2},{1,2},{1,3}} 31: {{1},{2},{1,2},{3},{1,3}} 63: {{1},{2},{1,2},{3},{1,3},{2,3}} 127: {{1},{2},{1,2},{3},{1,3},{2,3},{1,2,3}} 383: {{1},{2},{1,2},{3},{1,3},{2,3},{1,2,3},{1,4}} 511: {{1},{2},{1,2},{3},{1,3},{2,3},{1,2,3},{4},{1,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]]]]]]]]]; First/@GatherBy[Select[Range[0,1000],Length[csm[bpe/@bpe[#]]]<=1&],Length[bpe[#]]&]
Comments