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,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Index entries for primes, gaps between

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 *)

Prog

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

Crossrefs

Cf. A001223, A134117, A126721.

Sequence in context: A332315 A254976 A234791 * A235853 A237636 A236126

Adjacent sequences: A134115 A134116 A134117 * A134119 A134120 A134121

Keyword

nonn

Author

Rick L. Shepherd, Oct 08 2007

Status

approved