OFFSET
1,1
MATHEMATICA
a={}; Do[p=Prime[n]; If[PrimeQ[p*2+1] && PrimeQ[p*3+2] && PrimeQ[p*4+3] && PrimeQ[p*5+4] && PrimeQ[p*6+5] && PrimeQ[p*7+6], AppendTo[a, p]], {n, 1, 17^5}]; Print[a]; - Vladimir Joseph Stephan Orlovsky, Apr 29 2008
Select[Range[4*10^8], And@@PrimeQ[#*Range[7]+Range[0, 6]]&] (* Harvey P. Dale, Jul 22 2011 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jonathan Vos Post and Ray Chandler, Dec 31 2004
STATUS
approved