A378137 a(n) = p(n^2*p(n)), where p(x) is the least prime > x.

2, 3, 13, 47, 83, 179, 257, 541, 709, 907, 1103, 1579, 1873, 2879, 3343, 3833, 4357, 5501, 6163, 8311, 9203, 10151, 11149, 15349, 16729, 18127, 19609, 21143, 22739, 26083, 27901, 35569, 37889, 40343, 42773, 45329, 47963, 56131, 59207, 62383, 65609, 72287

Offset: 0

Author

Clark Kimberling, Dec 21 2024

Keywords

• nonn

Examples

			p(2) = 3, so a(2) = p(4*p(2)) = 13.
		

Crossrefs

Cf. A000040, A151800, A378135, A378136.

Programs

Mathematica

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

Formula

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