A134124 Primes p such that q-p = 50, where q is the next prime after p.

31907, 45893, 60539, 69263, 95651, 112691, 162293, 167543, 172883, 181553, 197837, 206699, 212507, 220613, 225167, 246839, 272813, 274529, 291569, 293021, 298943, 334793, 338609, 345329, 349241, 355211, 362801, 368957, 369419, 380657

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. A134123.

Programs

Maple

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

Mathematica

Transpose[Select[Partition[Prime[Range[40000]],2,1],#[[2]]-#[[1]] == 50&]][[1]] (* Harvey P. Dale, Feb 27 2015 *)

PARI

is(n)=nextprime(n+1)==n+50 && isprime(n) \\ Charles R Greathouse IV, Sep 14 2015

Formula

a(n) >> n log^2 n. - Charles R Greathouse IV, Sep 14 2015