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