A031927 Upper prime of a difference of 8 between consecutive primes.

97, 367, 397, 409, 457, 487, 499, 691, 709, 727, 751, 769, 919, 937, 991, 1117, 1171, 1201, 1381, 1447, 1531, 1567, 1579, 1741, 1831, 1987, 2011, 2161, 2221, 2251, 2281, 2467, 2539, 2617, 2671, 2707, 2749, 2851, 2887, 2917, 3019, 3049

Offset: 0

Author

Jeff Burch

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..1000
• Index entries for primes, gaps between

Programs

Maple

for i from 1 to 440 do if ithprime(i+1) = ithprime(i) + 8 then print({ithprime(i+1)}); fi; od; # Zerinvary Lajos, Mar 19 2007

Mathematica

Select[Partition[Prime[Range[500]],2,1],#[[2]]-#[[1]]==8&][[All,2]] (* Harvey P. Dale, Aug 28 2017 *)