A326788 BII-numbers of simple labeled graphs.
0, 4, 16, 20, 32, 36, 48, 52, 256, 260, 272, 276, 288, 292, 304, 308, 512, 516, 528, 532, 544, 548, 560, 564, 768, 772, 784, 788, 800, 804, 816, 820, 2048, 2052, 2064, 2068, 2080, 2084, 2096, 2100, 2304, 2308, 2320, 2324, 2336, 2340, 2352, 2356, 2560, 2564
Offset: 1
Keywords
Examples
The sequence of all simple labeled graphs together with their BII-numbers begins: 0: {} 4: {{1,2}} 16: {{1,3}} 20: {{1,2},{1,3}} 32: {{2,3}} 36: {{1,2},{2,3}} 48: {{1,3},{2,3}} 52: {{1,2},{1,3},{2,3}} 256: {{1,4}} 260: {{1,2},{1,4}} 272: {{1,3},{1,4}} 276: {{1,2},{1,3},{1,4}} 288: {{2,3},{1,4}} 292: {{1,2},{2,3},{1,4}} 304: {{1,3},{2,3},{1,4}} 308: {{1,2},{1,3},{2,3},{1,4}} 512: {{2,4}} 516: {{1,2},{2,4}} 528: {{1,3},{2,4}} 532: {{1,2},{1,3},{2,4}}
Crossrefs
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; Select[Range[0,100],SameQ[2,##]&@@Length/@bpe/@bpe[#]&]
Comments