

A134118


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


5



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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 (qp == 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



