OFFSET
1,1
COMMENTS
All terms are multiples of 105. - Harvey P. Dale, May 08 2019
MATHEMATICA
k = 0; inc = 3*5*7; While[k < 7200000000, k += inc; While[Nand @@ PrimeQ /@ ({2, 4, 6, 8, 10, 12, 14, 16}*k - 1), k += inc]; Print[k]; ]; (* Ray Chandler, Nov 21 2006 *)
Select[Range[105, 7091*10^6, 105], AllTrue[2*Range[8]#-1, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 08 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Nov 04 2006
EXTENSIONS
Corrected and extended by Ray Chandler, Nov 21 2006
STATUS
approved