OFFSET
1,2
MATHEMATICA
Select[Range[4100000], And@@PrimeQ[100#+{1, 3, 7, 9, 13, 27}]&] (* Harvey P. Dale, Jan 08 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
V. Raman, Sep 03 2012
STATUS
approved