OFFSET
1,1
MATHEMATICA
cpQ[n_]:=Module[{a=2Prime[n]+1, b=2Prime[n+1]+1, c=2Prime[n+2]+3, d= 2Prime[ n+3]+3}, PrimeQ[ a]&&NextPrime[a]==b&&NextPrime[b]==c&&NextPrime[c]==d]; Select[Range[5200000], cpQ] (* Harvey P. Dale, Mar 08 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Feb 21 2005
EXTENSIONS
Corrected by Harvey P. Dale, Mar 08 2014
STATUS
approved