login
Upper prime of a difference of 18 between consecutive primes.
2

%I #14 Aug 11 2014 22:45:16

%S 541,1087,1277,1399,1777,1931,2179,2521,2879,3821,3907,4177,4391,4441,

%T 4481,4621,4721,4751,5077,5227,5501,6029,6247,6469,6547,6599,6637,

%U 7177,7369,7411,7451,7477,7639,7901,8209,8779,9127,9311,9767

%N Upper prime of a difference of 18 between consecutive primes.

%H Harvey P. Dale, <a href="/A031937/b031937.txt">Table of n, a(n) for n = 0..1000</a>

%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>

%F a(n) = A031936(n)+18.

%t Transpose[Select[Partition[Prime[Range[1300]],2,1],Last[#]-First[#] == 18&]][[2]] (* _Harvey P. Dale_, Oct 06 2011 *)

%Y Cf. A031935.

%K nonn

%O 0,1

%A _Jeff Burch_