A204666 Primes p such that q-p = 54, where q is the next prime after p.

35617, 40289, 40639, 86869, 100853, 106033, 107509, 114493, 117443, 118973, 121789, 126859, 130873, 132763, 153763, 159233, 166487, 171947, 202129, 213659, 223849, 227893, 236813, 250199, 255259, 261169, 277429, 282167, 282713, 286873, 295459, 298099, 305663, 306589, 311897, 318023, 320953, 327347, 350293

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

Magma

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

Mathematica

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