OFFSET
1,1
MATHEMATICA
Select[Prime[Range[400000]], PrimeQ[28#+33]&&PrimeQ[28#-33]&&PrimeQ[38#+33]&&PrimeQ[38#-33]&&PrimeQ[58#+33]&&PrimeQ[58#-33]&]
PROG
(Magma) [p: p in PrimesUpTo(100000000)| IsPrime(28*p+33) and IsPrime(28*p-33)and IsPrime(38*p-33) and IsPrime(38*p+33) and IsPrime(58*p-33) and IsPrime(58*p+33)]; // Vincenzo Librandi, Nov 13 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 05 2005
STATUS
approved