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,1

Links

Table of n, a(n) for n=1..47.

Example

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000040, A151800.

Sequence in context: A141561 A240103 A019345 * A279067 A049489 A242383

Adjacent sequences: A380327 A380328 A380329 * A380331 A380332 A380333

Keyword

nonn

Author

Clark Kimberling, Jan 21 2025

Status

approved