A080083 Smallest prime p such that there is a gap of 2*prime(n) between p and previous prime.

11, 29, 149, 127, 1151, 2503, 1361, 30631, 81509, 44351, 34123, 404671, 265703, 156007, 1101071, 1098953, 1349651, 3117421, 6958801, 10343903, 6034393, 49269739, 83751287, 39390167, 166726561, 107534789, 232424029, 253878617, 327966319, 519653597, 1202442343, 1649329259

Offset: 1

Author

Reinhard Zumkeller, Jan 26 2003

Keywords

• nonn

Crossrefs

Cf. A000040, A001632, A080082.

Programs

PARI

list(len) = {my(v = vector(len), prv = 3, c = 0, d, i); forprime(p = 5, , d = (p - prv)/2; if(isprime(d), i = primepi(d); if(i < = len && v[i] == 0, c++; v[i] = p; if(c == len, break))); prv = p); v; } \\ Amiram Eldar, Mar 11 2025

Formula

A001632(A000040(n)) < a(n).

a(n) = A080082(n) + 2*A000040(n).

Extensions

a(17)-a(28) from Donovan Johnson, May 30 2010

a(29)-a(32) from Amiram Eldar, Mar 11 2025