cp's OEIS Frontend

A274527 Prime numbers p such that p+2, p^2+p-1, p^2+p+1, p^2+3*p+1, p^2+3*p+3 are all prime numbers.

%I A274527 #15 Aug 13 2021 14:29:07
%S A274527 5,2729,26449079,27188279,44521679,46090379,52736249,62320439,
%T A274527 70777979,92520539,109505969,192153149,274448789,288269519,343801919,
%U A274527 359240069,515694899,521594639,527159429,660223409,809600819,857353139,921868289,945420629,1000777049
%N A274527 Prime numbers p such that p+2, p^2+p-1, p^2+p+1, p^2+3*p+1, p^2+3*p+3 are all prime numbers.
%H A274527 Pierre CAMI, <a href="/A274527/b274527.txt">Table of n, a(n) for n = 1..45</a>
%e A274527 2 first prime, 2+2=4 composite.
%e A274527 3 prime, 3+2=5 prime, 3^2+3-1=11 prime, 3^2+3+1=13 prime, 3^2+3*3+1=19 prime, 3^2+3*3+3=21 composite.
%e A274527 5 prime, 5+2=7 prime, 5^2+5-1=29 prime, 5^2+5+1=31 prime, 5^2+3*5+1=41 prime, 5^2+3*5+3=43 prime so a(1)=5
%t A274527 Select[Prime[Range[50890000]],AllTrue[{#+2,#^2+#-1,#^2+#+1,#^2+3#+1,#^2+3#+3},PrimeQ]&] (* _Harvey P. Dale_, Aug 13 2021 *)
%o A274527 (PFGW & SCRIPT)
%o A274527 twin.txt file with the smallest of twin pairs.
%o A274527 SCRIPT
%o A274527 DIM m
%o A274527 DIM n
%o A274527 OPENFILEIN maf,twin.txt
%o A274527 OPENFILEOUT myf,a.txt
%o A274527 LABEL loop
%o A274527 GETNEXT n,maf
%o A274527 SET m,n*(n+1)-1
%o A274527 PRP m
%o A274527 IF ISPRP THEN GOTO a
%o A274527 GOTO loop
%o A274527 LABEL a
%o A274527 PRP m+2
%o A274527 IF ISPRP THEN GOTO b
%o A274527 GOTO loop
%o A274527 LABEL b
%o A274527 SET n,n+2
%o A274527 SET m,n*(n-1)-1
%o A274527 PRP m
%o A274527 IF ISPRP THEN GOTO c
%o A274527 GOTO loop
%o A274527 LABEL c
%o A274527 SET m,m+2
%o A274527 PRP m
%o A274527 SET n,n-2
%o A274527 IF ISPRP THEN WRITE myf,n
%o A274527 GOTO loop
%Y A274527 Cf. A228968, A274525.
%K A274527 nonn
%O A274527 1,1
%A A274527 _Pierre CAMI_, Jun 27 2016