A134123 Primes p such that q-p = 48, where q is the next prime after p.

28229, 73189, 86629, 105769, 106543, 113843, 137029, 156371, 157579, 163259, 166099, 168803, 172441, 177043, 177691, 179849, 180569, 183713, 203713, 204251, 206651, 220973, 222199, 226943, 229849, 233021, 234383, 240209, 242009, 260269

Offset

1,1

Links

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

Index entries for primes, gaps between

Mathematica

Transpose[Select[Partition[Prime[Range[25000]], 2, 1], Last[#]-First[#]==48&]][[1]]  (* Harvey P. Dale, Feb 07 2011 *)
Select[Prime[Range[25000]], NextPrime[#] - # == 48 &]

Prog

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

Crossrefs

Cf. A134122, A134124.

Sequence in context: A203832 A237246 A281577 * A234087 A049052 A355712

Adjacent sequences: A134120 A134121 A134122 * A134124 A134125 A134126

Keyword

nonn

Author

Rick L. Shepherd, Oct 08 2007

Status

approved