

A031133


Lower prime of a record difference between it and the second prime after it.


6



2, 3, 5, 19, 47, 83, 109, 199, 1123, 1321, 2161, 2477, 5591, 9551, 14087, 19603, 19609, 31393, 31397, 38461, 58789, 155893, 360653, 370247, 396733, 1357193, 1561891, 4652317, 8917463, 20831299, 38089217, 70396343, 72546143, 102765577
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



FORMULA



MATHEMATICA

lst = {}; {p, q, r} = {1, 2, 3}; d = 0; Do[{p, q, r} = {q, r, Prime@n}; If[r  p > d, d = r  p; AppendTo[lst, {p, r}]; Print[{p, rp, r}]], {n, 8050000}]; First /@ lst (* Robert G. Wilson v, May 17 2006 *)


PROG

(PARI) gap=0; p=2; q=3; forprime(r=5, 1e9, if(rp>gap, gap=rp; print1(p", ")); p=q; q=r) \\ Charles R Greathouse IV, Mar 06 2013


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



