编辑
提出
不超过10个条款^910. -罗伯特·伊斯雷尔2024年9月25日
不超过10个条款^89. -罗伯特·伊斯雷尔2024年9月25日
10 ^8之前无其他条款-罗伯特·伊斯雷尔，2024年9月25日
过滤器：=proc（n）局部L，Ev，Od，Le，Lo，i，x；
如果不是isprime（n），则返回false fi；
五十： =换算（n，基数，10）；
Ev，Od：=选择删除（t->L[t]：：偶数，[$1..nops（L）]）；
如果nops（convert（L[Ev]，set））<2或nops（convert（L[Od]，set））<2，则返回false fi；
对于组合中的Le:-permute（L[Ev]）do
对于组合中的Lo:-permute（L[Od]）do
x： =加法（Le[i]*10^（Ev[i]-1），i=1..nops（Ev））+加法（Lo[i]*10^（Od[i]-1），i=1..nos（Od））；
如果不是isprime（x），则返回false fi
od od；
真的
结束过程：
选择（过滤器，[$1000..10^5]）#罗伯特·伊斯雷尔2024年9月25日
从a（21）到a（23）罗伯特·伊斯雷尔2024年9月25日
1249, 1429, 1487, 1847, 2617, 2671, 4019, 4091, 6217, 6271, 6389, 6709, 6907, 6983, 7481, 7841, 8369, 8963, 9241, 9421,60337,60373,60733
过滤器：=进程（n）
局部P，x，d；
P： =mul（x^d+1，d=numtheory:-除数（n）减去{n}）；
系数（P，x，n）=1
选择（过滤器，[1..2000]）#罗伯特·伊斯雷尔2024年9月25日
