A378136 a(n) = p(2*n*p(n)), where p(x) = least prime > x.

2, 5, 13, 31, 41, 71, 89, 157, 179, 199, 223, 293, 313, 443, 479, 521, 547, 647, 691, 877, 929, 967, 1013, 1361, 1399, 1451, 1511, 1567, 1627, 1801, 1861, 2297, 2371, 2447, 2521, 2591, 2671, 3037, 3119, 3203, 3299, 3527, 3613, 4049, 4139, 4231, 4327, 4987, 5099

Offset

0,1

Links

Table of n, a(n) for n=0..48.

Example

p(0) = 2, so a(0) = p(2*p(0)) = 5.

Mathematica

Table[NextPrime[2 n*NextPrime[n]], {n, 0, 80}]

Prog

(PARI) p(n) = nextprime(n+1);
a(n) = p(2*n*p(n)); \\ Michel Marcus, Nov 21 2024

Crossrefs

Cf. A000040, A013636, A151800, A378135.

Sequence in context: A216684 A065377 A215215 * A077278 A073683 A098501

Adjacent sequences: A378133 A378134 A378135 * A378137 A378138 A378139

Keyword

nonn

Author

Clark Kimberling, Nov 20 2024

Status

approved