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 A082888 #13 Nov 04 2024 01:35:15 %S A082888 1129,1327,1669,2179,2477,2971,3137,3271,4297,4831,5119,5351,5531, %T A082888 5591,5749,5953,6491,6917,7253,7759,7963,8389,8467,8893,8971,9551, %U A082888 9973,10009,10399,10531,10799,10909,11743,12163,12853,13063,13187,13933 %N A082888 Primes p such that (r-p)/log(p) > 3, where r is the next prime after p. %H A082888 Amiram Eldar, <a href="/A082888/b082888.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale) %F A082888 prime(j) such that (prime(j+1)-prime(j))/log(prime(j)) > 3. %e A082888 If p = 1327 then r = 1361 and (r-p)/log(p) = 34/log(1327) = 4.72834..., so 1327 is in the sequence. %t A082888 Do[s=(Prime[n+1]-Prime[n])/Log[Prime[n]]//N; If[s>3, Print[Prime[n]]], {n, 1, 2000}] %t A082888 Transpose[Select[Partition[Prime[Range[2000]],2,1],(Last[#]-First[#])/ Log[ First[ #]]>3&]][[1]] (* _Harvey P. Dale_, Apr 20 2013 *) %Y A082888 Cf. A082862, A082884, A082885, A082886, A082889, A082890, A082891. %K A082888 nonn %O A082888 1,1 %A A082888 _Labos Elemer_, Apr 17 2003