A326876 BII-numbers of finite topologies without their empty set.
0, 1, 2, 4, 5, 6, 7, 8, 16, 17, 24, 25, 32, 34, 40, 42, 64, 65, 66, 68, 69, 70, 71, 72, 76, 80, 81, 82, 85, 87, 88, 89, 93, 96, 97, 98, 102, 103, 104, 106, 110, 120, 121, 122, 127, 128, 256, 257, 384, 385, 512, 514, 640, 642, 1024, 1025, 1026, 1028, 1029, 1030
Offset: 1
Keywords
Examples
The sequence of all finite topologies without their empty set together with their BII-numbers begins: 0: {} 1: {{1}} 2: {{2}} 4: {{1,2}} 5: {{1},{1,2}} 6: {{2},{1,2}} 7: {{1},{2},{1,2}} 8: {{3}} 16: {{1,3}} 17: {{1},{1,3}} 24: {{3},{1,3}} 25: {{1},{3},{1,3}} 32: {{2,3}} 34: {{2},{2,3}} 40: {{3},{2,3}} 42: {{2},{3},{2,3}} 64: {{1,2,3}} 65: {{1},{1,2,3}} 66: {{2},{1,2,3}} 68: {{1,2},{1,2,3}} 69: {{1},{1,2},{1,2,3}}
Links
- Wikipedia Topological space
Crossrefs
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; Select[Range[0,100],SubsetQ[bpe/@bpe[#],Union[Union@@@Tuples[bpe/@bpe[#],2],DeleteCases[Intersection@@@Tuples[bpe/@bpe[#],2],{}]]]&]
Comments