OFFSET
1,1
MATHEMATICA
Select[Prime[Range[400]], PrimeQ[28#+3]&&PrimeQ[28#-3]&]
PROG
(Magma) [n: n in [0..10000]| IsPrime(n) and IsPrime(28*n-3) and IsPrime(28*n+3)]; // Vincenzo Librandi, Nov 13 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 05 2005
STATUS
approved