%I#20 2017年3月1日23:47:11
%S 5,7,17,23,31,41,53,67,71,89127149173199251281347383409,
%电话46147952359436416917197738238897110331097116312311301,
%电话:1373144716191709174118231907
%N a(1)=5;对于n>1,a(n)是最小素数p>a(n-1),使得q=p+2n和r=q+2n+2都是素数。
%注意,p,q,r不需要是连续素数。
%H Charles R Greathouse IV,n表,n=1..10000的a(n)</a>
%e a(1)=5,因为5+2=7和7+4=11都是素数;
%en=2:d=4,p=7,因为p+d=11和11+6=17都是质数;
%e n=3:d=6:素数11、13是不合格的,而17+6=23和23+8=31是素数,因此a(3)=17。
%t m=0;p=3;s={};Do[p=NextPrime[p];m=m+2;而[!PrimeQ[p+m]||!素数Q[p+2*m+2],p=下一素数[p]];附加到[s,p],{50}];秒
%o(PARI)first(n)=my(v=向量(n),k=4);v[1]=5;对于素数(p=5,如果(isprime(p+k)&isprime)(p+2*k+2),v[k/2]=p;如果(k==2*n,返回(v));k+=2))2017年3月1日
%Y参考A283159。
%K nonn公司
%O 1,1号机组
%A _Zak Seidov,2017年3月1日
%E a(16)-a(17)由_Charles R Greathouse IV_修订,2017年3月1日
|