|
|
A124491
|
|
Numbers n such that 2n-1, 4n-1, 6n-1, 8n-1, 10n-1, 12n-1, 14n-1 and 16n-1 are primes.
|
|
2
|
|
|
1447110, 30020760, 32261985, 121012185, 203937090, 546020475, 546037695, 837344865, 1140530160, 2517567255, 2664703335, 2841691440, 2896212165, 3000108405, 3190108740, 5204790360, 5744351970, 6872932605, 7090912185
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|