OFFSET
1,1
MATHEMATICA
Select[Prime[Range[500]], !PrimeQ[#-30]&&!PrimeQ[#+30]&] (* Harvey P. Dale, Apr 16 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jun 30 2008
EXTENSIONS
Corrected (3, 5, 331 inserted) by R. J. Mathar, Apr 25 2010
Corrected (19 deleted) by Harvey P. Dale, Apr 16 2011.
STATUS
approved