%I#19 2023年3月2日15:44:29
%S 11、17、23、29、37、43、47、53、59、67、71、79、89、89101101109131127131、,
%电话13113717914915719319117917919319712272232227,
%电话:233257252572572632772728131131130730731331359337347
%N a(N)=最小素数p,使得p-+6*N都是素数。
%C序列不是单调的。例如,a(17)=109,a(18)=131,a(19)=127。
%H Zak Seidov,n的表,n的a(n)=1..10000</a>
%H Zak Seidov,<a href=“/A160129/A160129.txt”>n=10001.20000的a(n)表</a>
%F 11和11-+1*6是素数,17和17-+2*6是素数,23和23-+3*6是质数。
%t lp[n_]:=模块[{p=NextPrime[6n]},而[Total[Boole[PrimeQ[p+6{n,-n}]]!=2,p=下一素数[p]];p] ;数组[lp,60](*_哈维P.戴尔,2023年3月2日*)
%o(PARI)a(n)={p=下一素数(6*n);while(!isprime(p+6*n)||!isprim(p-6*n,p=下一素数(p+1));p;}\\米歇尔·马库斯,2013年10月15日
%K非n
%O 1,1号机组
%A_Zak Seidov,2009年5月2日
%米歇尔·马库斯简化的E评论,2013年10月15日
|