A204667 Primes p such that q-p = 56, where q is the next prime after p.

82073, 153191, 160253, 178697, 200513, 212297, 223151, 283211, 293543, 369581, 388403, 401417, 446657, 482123, 492911, 526997, 529751, 529871, 543713, 555767, 565667, 593711, 593783, 608213, 611333, 626261, 645257, 657131, 698183, 713681, 717341, 731057, 736187, 746597, 755903, 767957

Offset: 1

Author

N. J. A. Sloane, Jan 17 2012

Keywords

• nonn

Links

• M. F. Hasler, Table of n, a(n) for n = 1..16595 (all a(n)<10^8).
• Index entries for primes, gaps between

Programs

Magma

[p: p in PrimesUpTo(800000) | NextPrime(p)-p eq 56]; // Vincenzo Librandi, Jan 16 2017

Mathematica

Transpose[Select[Partition[Prime[Range[80000]], 2, 1], Last[#] - First[#] == 56 &]][[1]] (* Vincenzo Librandi, Jan 16 2017 *)