检验过的
经核准的
提出
编辑
102=2*3*17和105=3*5*7是蝶阀数,即..,三个不同素数的乘积,103(a素数)和104=2^3*13都不是半素数,所以102在序列中。
sw=开关[FactorInteger[#][[All,2]],{1,1},{#,2},},[1,1,1{,{#,3},_,Nothing]&/@Range[10^4];
sp=序列位置[sw,{{_,3},{_,3+}][[All,1]];
sw[[sp]][[全部,1]](*Jean-François Alcover公司2020年9月26日*)
两个连续的蝶形数中的第一个,它们之间没有半素数.