%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