This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A031133 #66 Oct 06 2019 18:05:09 %S A031133 2,3,5,19,47,83,109,199,1123,1321,2161,2477,5591,9551,14087,19603, %T A031133 19609,31393,31397,38461,58789,155893,360653,370247,396733,1357193, %U A031133 1561891,4652317,8917463,20831299,38089217,70396343,72546143,102765577 %N A031133 Lower prime of a record difference between it and the second prime after it. %H A031133 <a href="/A031133/b031133.txt">Table of n, a(n) for n = 1..67</a> %F A031133 a(n) = A031134(n) - A031132(n). - _Robert G. Wilson v_ %t A031133 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}]; First /@ lst (* _Robert G. Wilson v_, May 17 2006 *) %o A031133 (PARI) gap=0;p=2;q=3;forprime(r=5,1e9,if(r-p>gap,gap=r-p;print1(p", ")); p=q;q=r) \\ _Charles R Greathouse IV_, Mar 06 2013 %Y A031133 Cf. A031131, A031132, A031134, A122412, A122413. %K A031133 nonn %O A031133 1,1 %A A031133 _Jeff Burch_ %E A031133 Extended (and first term added) by _Patrick De Geest_, Oct 15 2000 %E A031133 Further extended by _Jud McCranie_, Jan 03 2001 %E A031133 a(34)-a(52) from _Jon E. Schoenfield_, Sep 02 2006 %E A031133 a(53)-a(55) added by _Dmitry Kamenetsky_, Jul 28 2008 %E A031133 a(55) corrected, a(56)-a(62) added by _Dmitry Petukhov_, Sep 20 2015 %E A031133 a(63)-a(67) added by _Vladimir Chirkov_ and _Natalia Makarova_, Sep 24 2015, Sep 29 2015