OFFSET
1,1
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, r-p, r}]], {n, 8050000}]; Last /@ lst (* Robert G. Wilson v, May 17 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Extended (and first term added) by Patrick De Geest, Oct 15 2000
Corrected and extended by Jud McCranie, Jan 03 2001
a(34)-a(52) from Jon E. Schoenfield, Sep 02 2006
Definition corrected by Jon E. Schoenfield, Aug 27 2006
a(53)-a(55) added by Dmitry Kamenetsky, Jul 28 2008
a(55) corrected, a(56)-a(62) added by Dmitry Petukhov, Sep 20 2015
a(63)-a(67) added by Vladimir Chirkov and Natalia Makarova, Sep 25 2015, Sep 29 2015
STATUS
approved