|
|
A052188
|
|
Primes p such that p, p+12, p+24 are consecutive primes.
|
|
13
|
|
|
199, 1499, 4397, 4679, 7829, 9859, 11287, 11399, 11719, 12829, 15149, 16607, 17419, 17839, 18329, 18719, 19727, 19937, 20149, 20509, 20719, 21649, 22039, 22247, 23789, 25609, 26029, 28057, 29587, 30047, 31039, 32467, 34159, 35117
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
a(1)=199, followed by 199+12=211, 199+12+12=223 consecutive primes.
|
|
MATHEMATICA
|
Transpose[Select[Partition[Prime[Range[3800]], 3, 1], Union[Differences[#]] =={12}&]][[1]] (* Harvey P. Dale, Apr 26 2011 *)
|
|
PROG
|
(PARI) lista(nn) = {forprime(p=1, nn, q = nextprime(p+1); r = nextprime(q+1); if ((r-q==12) && (q-p==12), print1(p, ", ")); ); } \\ Michel Marcus, Jun 27 2015
(Magma) [p:p in PrimesUpTo(36000)| NextPrime(p)-p eq 12 and NextPrime(p+12)-p eq 24]; // Marius A. Burtea, Jan 03 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|