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

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. A134122, A134124.

Programs

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 &]

PARI

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