A327080 BII-numbers of maximal uniform set-systems (or complete hypergraphs).
0, 1, 2, 3, 4, 8, 9, 10, 11, 16, 32, 52, 64, 128, 129, 130, 131, 136, 137, 138, 139, 256, 512, 772, 1024, 2048, 2320, 2592, 2868, 4096, 8192, 13376, 16384, 32768, 32769, 32770, 32771, 32776, 32777, 32778, 32779, 32896, 32897, 32898, 32899, 32904, 32905, 32906
Offset: 1
Keywords
Examples
The sequence of all maximal uniform set-systems together with their BII-numbers begins: 0: {} 1: {{1}} 2: {{2}} 3: {{1},{2}} 4: {{1,2}} 8: {{3}} 9: {{1},{3}} 10: {{2},{3}} 11: {{1},{2},{3}} 16: {{1,3}} 32: {{2,3}} 52: {{1,2},{1,3},{2,3}} 64: {{1,2,3}} 128: {{4}} 129: {{1},{4}} 130: {{2},{4}} 131: {{1},{2},{4}} 136: {{3},{4}} 137: {{1},{3},{4}} 138: {{2},{3},{4}}
Crossrefs
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; Select[Range[0,100],With[{sys=bpe/@bpe[#]},#==0||SameQ@@Length/@sys&&Length[sys]==Binomial[Length[Union@@sys],Length[First[sys]]]]&]
Comments