A326874 BII-numbers of abstract simplicial complexes.
0, 1, 2, 3, 7, 8, 9, 10, 11, 15, 25, 27, 31, 42, 43, 47, 59, 63, 127, 128, 129, 130, 131, 135, 136, 137, 138, 139, 143, 153, 155, 159, 170, 171, 175, 187, 191, 255, 385, 387, 391, 393, 395, 399, 409, 411, 415, 427, 431, 443, 447, 511, 642, 643, 647, 650, 651, 655
Offset: 1
Keywords
Examples
The sequence of all abstract simplicial complexes together with their BII-numbers begins: 0: {} 1: {{1}} 2: {{2}} 3: {{1},{2}} 7: {{1},{2},{1,2}} 8: {{3}} 9: {{1},{3}} 10: {{2},{3}} 11: {{1},{2},{3}} 15: {{1},{2},{1,2},{3}} 25: {{1},{3},{1,3}} 27: {{1},{2},{3},{1,3}} 31: {{1},{2},{3},{1,2},{1,3}} 42: {{2},{3},{2,3}} 43: {{1},{2},{3},{2,3}} 47: {{1},{2},{3},{1,2},{2,3}} 59: {{1},{2},{3},{1,3},{2,3}} 63: {{1},{2},{3},{1,2},{1,3},{2,3}} 127: {{1},{2},{3},{1,2},{1,3},{2,3},{1,2,3}} 128: {{4}} 129: {{1},{4}}
Links
- Wikipedia, Abstract simplicial complex
Crossrefs
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; Select[Range[0,100],SubsetQ[bpe/@bpe[#],DeleteCases[Union@@Subsets/@bpe/@bpe[#],{}]]&]
Comments