A326910
BII-numbers of pairwise intersecting set-systems.
Original entry on oeis.org
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
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}}
Intersecting set systems are
A051185 (not-covering) or
A305843 (covering).
BII-numbers of set-systems with empty intersection are
A326911.
-
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]=={}&]&]
A326905
BII-numbers of set-systems (without {}) closed under intersection.
Original entry on oeis.org
0, 1, 2, 4, 5, 6, 8, 16, 17, 21, 24, 32, 34, 38, 40, 56, 64, 65, 66, 68, 69, 70, 72, 80, 81, 85, 88, 96, 98, 102, 104, 120, 128, 256, 257, 261, 273, 277, 321, 325, 337, 341, 384, 512, 514, 518, 546, 550, 578, 582, 610, 614, 640, 896, 1024, 1025, 1026, 1028
Offset: 1
The sequence of all set-systems closed under intersection 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}}
21: {{1},{1,2},{1,3}}
24: {{3},{1,3}}
32: {{2,3}}
34: {{2},{2,3}}
38: {{2},{1,2},{2,3}}
40: {{3},{2,3}}
56: {{3},{1,3},{2,3}}
64: {{1,2,3}}
65: {{1},{1,2,3}}
66: {{2},{1,2,3}}
68: {{1,2},{1,2,3}}
The case with union instead of intersection is
A326875.
The case closed under union and intersection is
A326913.
Set-systems closed under intersection and containing the vertex set are
A326903.
Set-systems closed under intersection are
A326901, with unlabeled version
A326904.
-
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
Select[Range[0,100],SubsetQ[bpe/@bpe[#],Intersection@@@Tuples[bpe/@bpe[#],2]]&]
Showing 1-2 of 2 results.
Comments