OFFSET
1,1
MATHEMATICA
Select[Prime[Range[100]], !PrimeQ[#+14]&] (* Harvey P. Dale, Jun 13 2011 *)
PROG
(Magma)[p: p in PrimesUpTo(500)|not IsPrime(p+14)]; // Vincenzo Librandi, Dec 18 2010
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Juri-Stepan Gerasimov, Jul 03 2008, Aug 15 2009
EXTENSIONS
Edited by Charles R Greathouse IV, Mar 24 2010
STATUS
approved