login
A134123
Primes p such that q-p = 48, where q is the next prime after p.
6
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
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
Sequence in context: A203832 A237246 A281577 * A234087 A049052 A355712
KEYWORD
nonn
AUTHOR
Rick L. Shepherd, Oct 08 2007
STATUS
approved