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

Mathematica

Transpose[Select[Partition[Prime[Range[52000]], 2, 1], Last[#]-First[#] == 52&]][[1]] (* Harvey P. Dale, Jul 18 2014 *)

Prog

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

Crossrefs

Sequence in context: A022234 A082890 A109569 * A031681 A118924 A065304

Adjacent sequences: A204662 A204663 A204664 * A204666 A204667 A204668

Keyword

nonn

Author

N. J. A. Sloane, Jan 17 2012

Status

approved