|
%I #14 Sep 08 2022 08:46:01
%S 35617,40289,40639,86869,100853,106033,107509,114493,117443,118973,
%T 121789,126859,130873,132763,153763,159233,166487,171947,202129,
%U 213659,223849,227893,236813,250199,255259,261169,277429,282167,282713,286873,295459,298099,305663,306589,311897,318023,320953,327347,350293
%N Primes p such that q-p = 54, where q is the next prime after p.
%H Charles R Greathouse IV, <a href="/A204666/b204666.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%t Transpose[Select[Partition[Prime[Range[40000]], 2, 1], Last[#] - First[#] == 54 &]][[1]] (* _Vincenzo Librandi_, Jan 16 2017 *)
%o (Magma) [p: p in PrimesUpTo(400000) | NextPrime(p)-p eq 54]; // _Vincenzo Librandi_, Jan 16 2017
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Jan 17 2012
|
