OFFSET
1,1
EXAMPLE
5 < 3*2 < 7 < 3*3 < 11 < 13 < 3*5 < 17, so (a(1), a(2), a(3)) = (7,11,17).
MATHEMATICA
Table[NextPrime[Prime[PrimePi[3*Prime[n]]]], {n, 1, 200}]
PROG
(PARI) a(n) = nextprime(3*prime(n)); \\ Michel Marcus, Feb 10 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Feb 09 2024
STATUS
approved