login
Primes p such that p+14 is also prime.
13

%I #9 Sep 08 2022 08:45:39

%S 3,5,17,23,29,47,53,59,83,89,113,137,149,167,179,197,227,257,263,269,

%T 293,317,353,359,383,419,443,449,509,557,563,587,593,599,617,647,659,

%U 677,719,743,773,797,809,839,863,953,977,983,1019,1049,1103,1109,1187

%N Primes p such that p+14 is also prime.

%H Vincenzo Librandi, <a href="/A153417/b153417.txt">Table of n, a(n) for n = 1..1000</a>

%e 3+14=17, 5+14=19, etc.

%t lst={};d=14;Do[p=Prime[n];If[PrimeQ[p+d],AppendTo[lst,p]],{n,6!}];lst

%t Select[Prime[Range[2, 200]], PrimeQ[( # + 14)]&] (* _Vincenzo Librandi_, Apr 14 2013 *)

%o (Magma) [p: p in PrimesUpTo(1200) | IsPrime(p + 14)]; // _Vincenzo Librandi_, Apr 14 2013

%K nonn,easy

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Dec 25 2008

%E Definition improved from _Bruno Berselli_, Oct 31 2012