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