cp's OEIS Frontend

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.

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

This page as a plain text file.
%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