|
|
A124596
|
|
Primes p such that q-p = 30, where q is the next prime after p.
|
|
10
|
|
|
4297, 4831, 5351, 5749, 6491, 6917, 7253, 7759, 7963, 8389, 8893, 13063, 13187, 13933, 13967, 14251, 14983, 16381, 16573, 17627, 18553, 18869, 20563, 21283, 21347, 21617, 23633, 23689, 24251, 25189, 26053, 26597, 27299, 27367, 27551, 28319, 28979, 29537
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Primes p such that r-q=q-p=30, where p, q, r are three successive primes, are A052195 = (69593, 110651, 134609, 228647, 237791, 250889, 303157, 24907,...). Primes p such that s-r=r-q=q-p=30, where p, q, r, s are four successive primes, are A052243 = (642427, 1058861, 3431903, 4176587, 4560121, 4721047, 5072269, 5145403, ...). - Zak Seidov, Dec 20 2006, edited by M. F. Hasler, Apr 04 2013
|
|
LINKS
|
|
|
MATHEMATICA
|
max = 30000;
Reap[For[p = 2; q = 3, p < max, p = q, q = NextPrime[p]; If[q - p == 30, Sow[p]]]][[2, 1]] (* Jean-François Alcover, Sep 02 2018 *)
Select[Partition[Prime[Range[5000]], 2, 1], #[[2]]-#[[1]]==30&][[All, 1]] (* Harvey P. Dale, Dec 25 2019 *)
|
|
CROSSREFS
|
See also A052187 and references therein.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|