login
List of prime pairs of the form (p, p+18).
4

%I #7 Nov 01 2012 07:54:58

%S 5,23,11,29,13,31,19,37,23,41,29,47,41,59,43,61,53,71,61,79,71,89,79,

%T 97,83,101,89,107,109,127,113,131,131,149,139,157,149,167,163,181,173,

%U 191,179,197,181,199,193,211,211,229,223,241,233,251,239,257,251,269,263

%N List of prime pairs of the form (p, p+18).

%C The two primes p and p+18 are not necessarily adjacent.

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

%t Flatten[Select[{#, # + 18} &/@Prime[Range[1000]], PrimeQ[Last[#]]&]] (* _Vincenzo Librandi_, Nov 01 2012 *)

%Y Cf. A153418.

%K nonn,tabf

%O 1,1

%A _Vincenzo Librandi_, Feb 08 2009