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

Links

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

Index entries for primes, gaps between

Formula

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

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

Prog

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

Crossrefs

Cf. A134123.

Sequence in context: A278013 A140939 A237165 * A203738 A234995 A236587

Adjacent sequences: A134121 A134122 A134123 * A134125 A134126 A134127

Keyword

nonn

Author

Rick L. Shepherd, Oct 08 2007

Status

approved