%我#15 2018年4月26日17:37:16
%S 2,3,5,7,11,13,17,19,23,31,37,43,47,53,71,79,97107157191223431,
%电话:49967311511213259151199139967472391703123786431995327,
%电话:5739562763700991169869311407686348710871635967
%N素数p,使得p和它的下一个素数之间的所有复数都不超过2个不同的素数因子。
%C A078883的超序列。不存在的术语:2、7、13、19、23、31、37、43、47、53、79、97、157、223、499、673、1213、51199、703123。。。
%C5*10^11<a(39)<=2348273369087.-_Giovanni Resta_,2018年4月26日
%e157是一个素数,所以它在序列中,它和它的下一个质数163之间的合成数只有两个不同的素数因子:158=2*79、159=3*53、160=2^5*5、161=7*23和162=2*3^4。
%t b[n_]:=最大值[Map[PrimeNu,Range[n+1,NextPrime[n]-1]];c[n_]:=b[素数[n]];a={};Do[If[c[n]<3,AppendTo[a,Prime[n]]],{n,1,10^7}];一
%o(PARI)isok(p)={if(isprime(p)),对于(c=p+1,下一素数(p+1)-1,如果(ω(c)!=2,返回(0););返回(1);)
%Y参考A078883。
%K nonn,更多
%O 1,1号机组
%A _Amiram Eldar,2018年4月24日
%E a(36),来自米歇尔·马库斯,2018年4月26日
%E a(37)-a(38)摘自_Giovanni Resta_,2018年4月26日