A326873 BII-numbers of connectedness systems without singletons.
0, 4, 16, 32, 64, 68, 80, 84, 96, 100, 112, 116, 256, 288, 512, 528, 1024, 1028, 1280, 1284, 1536, 1540, 1792, 1796, 2048, 2052, 4096, 4112, 4352, 4368, 6144, 6160, 6400, 6416, 8192, 8224, 8704, 8736, 10240, 10272, 10752, 10784, 16384, 16388, 16400, 16416
Offset: 1
Keywords
Examples
The sequence of all connectedness systems without singletons together with their BII-numbers begins: 0: {} 4: {{1,2}} 16: {{1,3}} 32: {{2,3}} 64: {{1,2,3}} 68: {{1,2},{1,2,3}} 80: {{1,3},{1,2,3}} 84: {{1,2},{1,3},{1,2,3}} 96: {{2,3},{1,2,3}} 100: {{1,2},{2,3},{1,2,3}} 112: {{1,3},{2,3},{1,2,3}} 116: {{1,2},{1,3},{2,3},{1,2,3}} 256: {{1,4}} 288: {{2,3},{1,4}} 512: {{2,4}} 528: {{1,3},{2,4}} 1024: {{1,2,4}} 1028: {{1,2},{1,2,4}} 1280: {{1,4},{1,2,4}} 1284: {{1,2},{1,4},{1,2,4}}
Links
- Gus Wiseman, Every Clutter Is a Tree of Blobs, The Mathematica Journal, Vol. 19, 2017.
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; connnosQ[eds_]:=!MemberQ[Length/@eds,1]&&SubsetQ[eds,Union@@@Select[Tuples[eds,2],Intersection@@#!={}&]]; Select[Range[0,1000],connnosQ[bpe/@bpe[#]]&]
Comments