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

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Index entries for primes, gaps between

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A205741 A206673 A205517 * A163680 A172712 A161023

Adjacent sequences: A204663 A204664 A204665 * A204667 A204668 A204669

Keyword

nonn

Author

N. J. A. Sloane, Jan 17 2012

Status

approved