A326979 BII-numbers of T_1 set-systems.
0, 1, 2, 3, 7, 8, 9, 10, 11, 15, 25, 27, 30, 31, 42, 43, 45, 47, 51, 52, 53, 54, 55, 59, 60, 61, 62, 63, 75, 79, 91, 94, 95, 107, 109, 111, 115, 116, 117, 118, 119, 123, 124, 125, 126, 127, 128, 129, 130, 131, 135, 136, 137, 138, 139, 143, 153, 155, 158, 159
Offset: 1
Keywords
Examples
The sequence of all T_1 set-systems 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}} 30: {{2},{1,2},{3},{1,3}} 31: {{1},{2},{1,2},{3},{1,3}} 42: {{2},{3},{2,3}} 43: {{1},{2},{3},{2,3}} 45: {{1},{1,2},{3},{2,3}} 47: {{1},{2},{1,2},{3},{2,3}} 51: {{1},{2},{1,3},{2,3}} 52: {{1,2},{1,3},{2,3}}
Crossrefs
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; dual[eds_]:=Table[First/@Position[eds,x],{x,Union@@eds}]; stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}]; Select[Range[0,100],UnsameQ@@dual[bpe/@bpe[#]]&&stableQ[dual[bpe/@bpe[#]],SubsetQ]&]
Comments