OFFSET
1,1
MATHEMATICA
cpQ[n_]:=Module[{p=Prime[n], a, b, c, d}, a=2p+5; b=2Prime[n+1]+7; c= 2*Prime[n+2]+9; d=2Prime[n+3]+11; AllTrue[{a, b, c, d}, PrimeQ]&&b== NextPrime[a]&&c==NextPrime[b]&&d==NextPrime[c]]; Select[Range[10^6], cpQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 14 2017 *)
PROG
(PARI) lista(nn) = {my(k=1, v=[2, 3, 5, 7]); forprime(p=11, nn, k++; v=concat(v[2..4], p); if(ispseudoprime(2*v[1]+5) && nextprime(2*v[1]+6)==2*v[2]+7 && nextprime(2*v[2]+8)==2*v[3]+9 && nextprime(2*v[3]+10)==2*v[4]+11, print1(k, ", "))); } \\ Jinyuan Wang, Mar 05 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Feb 19 2005
EXTENSIONS
Corrected and extended by Harvey P. Dale, Jan 14 2017
More terms from Jinyuan Wang, Mar 05 2020
STATUS
approved