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

5, 11, 29, 37, 79, 97, 191, 211, 257, 331, 409, 487, 701, 733, 809, 907, 1123, 1163, 1543, 1637, 1693, 1823, 2411, 2591, 2819, 2939, 2999, 3109, 3389, 3511, 4703, 4861, 5077, 5147, 5519, 5591, 6449, 6689, 6857, 7103, 7699, 7789, 8999, 9091, 9277, 9371, 11197

Offset: 1

Author

Clark Kimberling, Jan 21 2025

Keywords

• nonn

Examples

			a(1) = A151800(prime(1)*A151800(1)) = A151800(2*2) = 5.
		

Crossrefs

Cf. A000040, A151800.

Programs

Mathematica

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

PARI

p(n) = nextprime(n+1);
a(n) = p(prime(n)*p(n)); \\ Michel Marcus, Jan 27 2025