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
KEYWORD
nonn
AUTHOR
Zak Seidov, May 05 2005
STATUS
approved