login
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
OFFSET
1,1
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
Sequence in context: A231143 A249528 A233857 * A174293 A186877 A304283
KEYWORD
nonn
AUTHOR
Zak Seidov, May 05 2005
STATUS
approved