A153417 - OEIS

A153417

Primes p such that p+14 is also prime.

3, 5, 17, 23, 29, 47, 53, 59, 83, 89, 113, 137, 149, 167, 179, 197, 227, 257, 263, 269, 293, 317, 353, 359, 383, 419, 443, 449, 509, 557, 563, 587, 593, 599, 617, 647, 659, 677, 719, 743, 773, 797, 809, 839, 863, 953, 977, 983, 1019, 1049, 1103, 1109, 1187

(list; graph; refs; listen; history; text; internal format)

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