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 A082889 #13 Nov 04 2024 01:35:18
%S A082889 1327,15683,16141,19333,19609,20809,25471,28229,31397,31907,34061,
%T A082889 34981,35617,35677,36389,37907,40289,40639,43331,43801,44293,45893,
%U A082889 48679,58831,59281,60539,69263,73189,74959,79699,81463,82073,85933,86629
%N A082889 Primes p such that (r-p)/log(p) > 4, where r is the next prime after p.
%H A082889 Amiram Eldar, <a href="/A082889/b082889.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..2500 from Harvey P. Dale)
%F A082889 prime(j) such that (prime(j+1)-prime(j))/log(prime(j)) > 4.
%e A082889 If p = 1327 then r = 1361 and (r-p)/log(p) = 34/log(1327) = 4.72834..., so 1327 is in the sequence.
%t A082889 Do[s=(Prime[n+1]-Prime[n])/Log[Prime[n]]//N; If[s>4, Print[Prime[n]]], {n, 1, 2000}]
%t A082889 Transpose[Select[Partition[Prime[Range[10000]],2,1],(#[[2]]-#[[1]])/ Log[ #[[1]]]>4&]][[1]] (* _Harvey P. Dale_, Dec 10 2014 *)
%Y A082889 Cf. A082862, A082884, A082885, A082886, A082888, A082890, A082891.
%K A082889 nonn
%O A082889 1,1
%A A082889 _Labos Elemer_, Apr 17 2003