A204665 Primes p such that q-p = 52, where q is the next prime after p.

19609, 25471, 35677, 43801, 48679, 59281, 74959, 103237, 152311, 167809, 188197, 206827, 257731, 315127, 323149, 326257, 326779, 348097, 359929, 363067, 365851, 377911, 381859, 405091, 417037, 428899, 432661, 444349, 459961, 501511, 521929, 528559, 544549, 547171, 554977, 561109, 569269, 582319, 590437, 610339, 622189

Offset: 1

Author

N. J. A. Sloane, Jan 17 2012

Keywords

• nonn

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
• Index entries for primes, gaps between

Programs

Mathematica

Transpose[Select[Partition[Prime[Range[52000]],2,1],Last[#]-First[#] == 52&]][[1]] (* Harvey P. Dale, Jul 18 2014 *)
Prime[#]&/@Flatten[Position[Differences[Prime[Range[51000]]],52]] (* Harvey P. Dale, Aug 04 2024 *)

PARI

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

Formula

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