A329561 BII-numbers of intersecting antichains of sets.
0, 1, 2, 4, 8, 16, 20, 32, 36, 48, 52, 64, 128, 256, 260, 272, 276, 320, 512, 516, 544, 548, 576, 768, 772, 832, 1024, 1040, 1056, 1072, 1088, 2048, 2064, 2080, 2096, 2112, 2304, 2320, 2368, 2560, 2592, 2624, 2816, 2880, 3072, 3088, 3104, 3120, 3136, 4096
Offset: 1
Keywords
Examples
The sequence of terms together with their corresponding set-systems begins: 0: {} 1: {{1}} 2: {{2}} 4: {{1,2}} 8: {{3}} 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}} 64: {{1,2,3}} 128: {{4}} 256: {{1,4}} 260: {{1,2},{1,4}} 272: {{1,3},{1,4}} 276: {{1,2},{1,3},{1,4}} 320: {{1,2,3},{1,4}} 512: {{2,4}} 516: {{1,2},{2,4}}
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,1000],stableQ[bpe/@bpe[#],SubsetQ[#1,#2]||Intersection[#1,#2]=={}&]&]
Comments