|
|
A204666
|
|
Primes p such that q-p = 54, where q is the next prime after p.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|