

A124596


Primes p such that qp = 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

These are the primes p = prime(k) where A001223(k) = 30.  N. J. A. Sloane, Dec 25 2019
Primes p such that rq=qp=30, where p, q, r are three successive primes, are A052195 = (69593, 110651, 134609, 228647, 237791, 250889, 303157, 24907,...). Primes p such that sr=rq=qp=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

Remi Eismann, Table of n, a(n) for n = 1..10000
K. Soundararajan, Small gaps between prime numbers: The work of GoldstonPintzYildirim, Bull. Amer. Math. Soc., 44 (2007), 118. DOI: 10.1090/S0273097906011426
K. Soundararajan, Small gaps between prime numbers: The work of GoldstonPintzYildirim, arXiv:math/0605696 [math.NT], 2006.
Index entries for primes, gaps between


MATHEMATICA

max = 30000;
Reap[For[p = 2; q = 3, p < max, p = q, q = NextPrime[p]; If[q  p == 30, Sow[p]]]][[2, 1]] (* JeanFrançois Alcover, Sep 02 2018 *)
Select[Partition[Prime[Range[5000]], 2, 1], #[[2]]#[[1]]==30&][[All, 1]] (* Harvey P. Dale, Dec 25 2019 *)


CROSSREFS

Cf. A001223, A052195, A052243.
See also A052187 and references therein.
Sequence in context: A204400 A271104 A234164 * A224522 A210263 A165067
Adjacent sequences: A124593 A124594 A124595 * A124597 A124598 A124599


KEYWORD

nonn


AUTHOR

N. J. A. Sloane, Dec 19 2006


STATUS

approved



