A134118 Primes p such that q - p = 38, where q is the next prime after p.

30593, 38393, 39461, 45779, 49559, 51071, 56999, 58271, 60821, 63863, 68399, 72173, 72383, 75041, 78653, 79493, 85259, 90749, 95819, 104243, 105563, 109751, 110183, 111053, 111149, 111539, 116201, 119321, 125963, 126359, 129803, 134951

Offset: 1

Author

Rick L. Shepherd, Oct 08 2007

Keywords

• nonn

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
• Index entries for primes, gaps between

Crossrefs

Cf. A001223, A134117, A126721.

Programs

Maple

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

Mathematica

Select[Prime[Range[5000]], NextPrime[#] == # + 38 &] (* Alonso del Arte, Apr 10 2016 *)
Select[Partition[Prime[Range[13000]],2,1],#[[2]]-#[[1]]==38&][[All,1]] (* Harvey P. Dale, Oct 03 2020 *)

PARI

lista(nn) = {p = 2; forprime (q = 3, nn, if (q-p == 38, print1(p, ", ")); p = q;);} \\ Michel Marcus, Apr 11 2016