A326910 BII-numbers of pairwise intersecting set-systems.
0, 1, 2, 4, 5, 6, 8, 16, 17, 20, 21, 24, 32, 34, 36, 38, 40, 48, 52, 56, 64, 65, 66, 68, 69, 70, 72, 80, 81, 84, 85, 88, 96, 98, 100, 102, 104, 112, 116, 120, 128, 256, 257, 260, 261, 272, 273, 276, 277, 320, 321, 324, 325, 336, 337, 340, 341, 384, 512, 514
Offset: 1
Keywords
Examples
The sequence of all pairwise intersecting set-systems 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}} 20: {{1,2},{1,3}} 21: {{1},{1,2},{1,3}} 24: {{3},{1,3}} 32: {{2,3}} 34: {{2},{2,3}} 36: {{1,2},{2,3}} 38: {{2},{1,2},{2,3}} 40: {{3},{2,3}} 48: {{1,3},{2,3}} 52: {{1,2},{1,3},{2,3}} 56: {{3},{1,3},{2,3}}
Crossrefs
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}]; Select[Range[0,100],stableQ[bpe/@bpe[#],Intersection[#1,#2]=={}&]&]
Comments