|
|
A106024
|
|
Primes p such that 28*p +- 3, 38*p +- 3 and 58*p +- 3 are all primes.
|
|
0
|
|
|
104597, 648007, 855467, 896647, 1230337, 2307407, 2629547, 2884787, 4116823, 5526133, 6509143, 10446817, 11745017, 14962517, 16421297, 16632997, 20242127, 21919517, 22687823, 23076623, 26731807, 26743237, 26881193, 27504187
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[400000]], PrimeQ[28#+3]&&PrimeQ[28#-3]&&PrimeQ[38#+3]&&PrimeQ[38#-3]&&PrimeQ[58#+3]&&PrimeQ[58#-3]&]
Select[Prime[Range[1800000]], And@@PrimeQ[{28#+3, 28#-3, 38#+3, 38#-3, 58#+3, 58#-3}]&] (* Harvey P. Dale, Apr 21 2014 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(100000000)| IsPrime(28*p+3) and IsPrime(28*p-3)and IsPrime(38*p-3) and IsPrime(38*p+3) and IsPrime(58*p-3) and IsPrime(58*p+3)]; // Vincenzo Librandi, Nov 13 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|