A031939 Upper prime of a difference of 20 between consecutive primes.
907, 1657, 3109, 3433, 3967, 5737, 5923, 6007, 6823, 7669, 8263, 8563, 8803, 8887, 9277, 10243, 10453, 10687, 11047, 11113, 11197, 11467, 11617, 11677, 11887, 12007, 13147, 13441, 13669, 14107, 14197, 15493, 16963, 17539, 17827
Offset: 1
Keywords
Crossrefs
Cf. A031937.
Programs
-
Mathematica
Prime[Select[Range[2, 5000], Prime[ # ] - Prime[ # - 1] == 20 &]] (* Stefan Steinerberger, May 14 2006 *)
Formula
a(n) = A031938(n)+20.