|
%I #16 Sep 08 2022 08:46:01
%S 82073,153191,160253,178697,200513,212297,223151,283211,293543,369581,
%T 388403,401417,446657,482123,492911,526997,529751,529871,543713,
%U 555767,565667,593711,593783,608213,611333,626261,645257,657131,698183,713681,717341,731057,736187,746597,755903,767957
%N Primes p such that q-p = 56, where q is the next prime after p.
%H M. F. Hasler, <a href="/A204667/b204667.txt">Table of n, a(n) for n = 1..16595</a> (all a(n)<10^8).
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%t Transpose[Select[Partition[Prime[Range[80000]], 2, 1], Last[#] - First[#] == 56 &]][[1]] (* _Vincenzo Librandi_, Jan 16 2017 *)
%o (Magma) [p: p in PrimesUpTo(800000) | NextPrime(p)-p eq 56]; // _Vincenzo Librandi_, Jan 16 2017
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Jan 17 2012
|
