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 A134124 #17 May 08 2019 00:05:56 %S A134124 31907,45893,60539,69263,95651,112691,162293,167543,172883,181553, %T A134124 197837,206699,212507,220613,225167,246839,272813,274529,291569, %U A134124 293021,298943,334793,338609,345329,349241,355211,362801,368957,369419,380657 %N A134124 Primes p such that q-p = 50, where q is the next prime after p. %H A134124 Charles R Greathouse IV, <a href="/A134124/b134124.txt">Table of n, a(n) for n = 1..10000</a> %H A134124 <a href="/index/Pri#gaps">Index entries for primes, gaps between</a> %F A134124 a(n) >> n log^2 n. - _Charles R Greathouse IV_, Sep 14 2015 %p A134124 a:=proc(n) if nextprime(ithprime(n))-ithprime(n)=50 then ithprime(n) else end if end proc: seq(a(n),n=1..40000); # _Emeric Deutsch_, Oct 24 2007 %t A134124 Transpose[Select[Partition[Prime[Range[40000]],2,1],#[[2]]-#[[1]] == 50&]][[1]] (* _Harvey P. Dale_, Feb 27 2015 *) %o A134124 (PARI) is(n)=nextprime(n+1)==n+50 && isprime(n) \\ _Charles R Greathouse IV_, Sep 14 2015 %Y A134124 Cf. A134123. %K A134124 nonn %O A134124 1,1 %A A134124 _Rick L. Shepherd_, Oct 08 2007