[go: up one dir, main page]

login
A031927
Upper prime of a difference of 8 between consecutive primes.
5
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,1
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 *)
CROSSREFS
Sequence in context: A269786 A366352 A105128 * A174338 A050666 A160440
KEYWORD
nonn
AUTHOR
STATUS
approved