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
Offset: 1
Examples
3+14=17, 5+14=19, etc.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(1200) | IsPrime(p + 14)]; // Vincenzo Librandi, Apr 14 2013
-
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 *)
Extensions
Definition improved from Bruno Berselli, Oct 31 2012