A326905 BII-numbers of set-systems (without {}) closed under intersection.
0, 1, 2, 4, 5, 6, 8, 16, 17, 21, 24, 32, 34, 38, 40, 56, 64, 65, 66, 68, 69, 70, 72, 80, 81, 85, 88, 96, 98, 102, 104, 120, 128, 256, 257, 261, 273, 277, 321, 325, 337, 341, 384, 512, 514, 518, 546, 550, 578, 582, 610, 614, 640, 896, 1024, 1025, 1026, 1028
Offset: 1
Keywords
Examples
The sequence of all set-systems closed under intersection together with their BII-numbers begins: 0: {} 1: {{1}} 2: {{2}} 4: {{1,2}} 5: {{1},{1,2}} 6: {{2},{1,2}} 8: {{3}} 16: {{1,3}} 17: {{1},{1,3}} 21: {{1},{1,2},{1,3}} 24: {{3},{1,3}} 32: {{2,3}} 34: {{2},{2,3}} 38: {{2},{1,2},{2,3}} 40: {{3},{2,3}} 56: {{3},{1,3},{2,3}} 64: {{1,2,3}} 65: {{1},{1,2,3}} 66: {{2},{1,2,3}} 68: {{1,2},{1,2,3}}
Crossrefs
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; Select[Range[0,100],SubsetQ[bpe/@bpe[#],Intersection@@@Tuples[bpe/@bpe[#],2]]&]
Comments