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

2, 3, 7, 17, 23, 37, 43, 79, 89, 101, 113, 149, 157, 223, 239, 257, 277, 331, 347, 439, 461, 487, 509, 673, 701, 727, 757, 787, 821, 907, 937, 1151, 1187, 1223, 1259, 1297, 1361, 1523, 1559, 1601, 1657, 1777, 1811, 2027, 2069, 2129, 2179, 2503, 2549, 2609, 2657

Offset

0,1

Links

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

Formula

a(n) = A151800(n*A151800(n)).

Example

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

Mathematica

Table[NextPrime[n*NextPrime[n]], {n, 1, 80}]

Prog

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

Crossrefs

Cf. A000040, A013636, A151800, A378136, A378137.

Sequence in context: A040141 A235627 A019335 * A113425 A289379 A245590

Adjacent sequences: A378132 A378133 A378134 * A378136 A378137 A378138

Keyword

nonn

Author

Clark Kimberling, Nov 20 2024

Status

approved