OFFSET
1,1
MATHEMATICA
apQ[n_]:=And@@PrimeQ[Table[n*i+i+1, {i, 2, 14, 2}]]; Select[Range[ 300000000], apQ] (* Harvey P. Dale, Jan 02 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 16 2005
STATUS
approved