OFFSET
1,1
MATHEMATICA
Select[3*5*7*Range[2000000], And @@ PrimeQ /@ ({2, 4, 6, 8, 10, 12, 14}*# - 1) &] (* Ray Chandler, Nov 21 2006 *)
pr7Q[n_]:=AllTrue[2*Range[7]n-1, PrimeQ]; Select[105*Range[3*10^6], pr7Q] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 17 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Nov 04 2006
EXTENSIONS
Extended by Ray Chandler, Nov 21 2006
More terms from Harvey P. Dale, May 17 2018
STATUS
approved