|
|
A064965
|
|
1000000n+1, 1000000n+3, 1000000n+7, 1000000n+9 are all primes.
|
|
0
|
|
|
14311, 14659, 23299, 40861, 43303, 46405, 62239, 67327, 77071, 94237, 102796, 115201, 120220, 134968, 138721, 152980, 252715, 260947, 272365, 274534, 285244, 298342, 304489, 305713, 311032, 318802, 324025, 325321, 338908, 343885, 352621
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[10^6/2], PrimeQ[10^6# + 1] && PrimeQ[10^6# + 3] && PrimeQ[10^6# + 7] && PrimeQ[10^6# + 9] &]
Select[Range[400000], AllTrue[10^6*#+{1, 3, 7, 9}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 11 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|