A368532 Minimal numbers whose binary indices of binary indices contradict a strict version of the axiom of choice.
7, 25, 30, 42, 45, 51, 53, 54, 60, 75, 77, 78, 83, 85, 86, 90, 92, 99, 101, 102, 105, 108, 113, 114, 116, 120, 385, 390, 408, 428, 434, 436, 458, 460, 466, 468, 482, 484, 488, 496, 642, 645, 668, 680, 689, 692, 713, 716, 721, 724, 728, 737, 740, 752, 771, 773
Offset: 1
Keywords
Examples
The terms the corresponding set-systems begin: 7: {{1},{2},{1,2}} 25: {{1},{3},{1,3}} 30: {{2},{1,2},{3},{1,3}} 42: {{2},{3},{2,3}} 45: {{1},{1,2},{3},{2,3}} 51: {{1},{2},{1,3},{2,3}} 53: {{1},{1,2},{1,3},{2,3}} 54: {{2},{1,2},{1,3},{2,3}} 60: {{1,2},{3},{1,3},{2,3}} 75: {{1},{2},{3},{1,2,3}} 77: {{1},{1,2},{3},{1,2,3}} 78: {{2},{1,2},{3},{1,2,3}} 83: {{1},{2},{1,3},{1,2,3}} 85: {{1},{1,2},{1,3},{1,2,3}} 86: {{2},{1,2},{1,3},{1,2,3}} 90: {{2},{3},{1,3},{1,2,3}} 92: {{1,2},{3},{1,3},{1,2,3}} 99: {{1},{2},{2,3},{1,2,3}}
Crossrefs
Programs
-
Mathematica
vmin[y_]:=Select[y,Function[s,Select[DeleteCases[y,s], SubsetQ[bpe[s],bpe[#]]&]=={}]]; Select[Range[100],Select[Tuples[bpe/@bpe[#]] ,UnsameQ@@#&]=={}&]//vmin
Comments