A031937 Upper prime of a difference of 18 between consecutive primes.
541, 1087, 1277, 1399, 1777, 1931, 2179, 2521, 2879, 3821, 3907, 4177, 4391, 4441, 4481, 4621, 4721, 4751, 5077, 5227, 5501, 6029, 6247, 6469, 6547, 6599, 6637, 7177, 7369, 7411, 7451, 7477, 7639, 7901, 8209, 8779, 9127, 9311, 9767
Offset: 0
Keywords
Links
Crossrefs
Cf. A031935.
Programs
-
Mathematica
Transpose[Select[Partition[Prime[Range[1300]],2,1],Last[#]-First[#] == 18&]][[2]] (* Harvey P. Dale, Oct 06 2011 *)
Formula
a(n) = A031936(n)+18.