|
%I #21 Oct 03 2020 13:17:11
%S 30593,38393,39461,45779,49559,51071,56999,58271,60821,63863,68399,
%T 72173,72383,75041,78653,79493,85259,90749,95819,104243,105563,109751,
%U 110183,111053,111149,111539,116201,119321,125963,126359,129803,134951
%N Primes p such that q - p = 38, where q is the next prime after p.
%H Charles R Greathouse IV, <a href="/A134118/b134118.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%p a:=proc(n) if nextprime(ithprime(n))-ithprime(n)=38 then ithprime(n) else end if end proc: seq(a(n),n=1..15000); # _Emeric Deutsch_, Oct 24 2007
%t Select[Prime[Range[5000]], NextPrime[#] == # + 38 &] (* _Alonso del Arte_, Apr 10 2016 *)
%t Select[Partition[Prime[Range[13000]],2,1],#[[2]]-#[[1]]==38&][[All,1]] (* _Harvey P. Dale_, Oct 03 2020 *)
%o (PARI) lista(nn) = {p = 2; forprime (q = 3, nn, if (q-p == 38, print1(p, ", ")); p = q;);} \\ _Michel Marcus_, Apr 11 2016
%Y Cf. A001223, A134117, A126721.
%K nonn
%O 1,1
%A _Rick L. Shepherd_, Oct 08 2007
|
