OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
3+14=17, 5+14=19, etc.
MATHEMATICA
lst={}; d=14; Do[p=Prime[n]; If[PrimeQ[p+d], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[2, 200]], PrimeQ[( # + 14)]&] (* Vincenzo Librandi, Apr 14 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(1200) | IsPrime(p + 14)]; // Vincenzo Librandi, Apr 14 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 25 2008
EXTENSIONS
Definition improved from Bruno Berselli, Oct 31 2012
STATUS
approved