A062447 a(n) = prime(q(n)), where q(n) = A002110(n).
2, 3, 13, 113, 1291, 20443, 350741, 7535917, 173723909, 4735396021, 160158887507, 5681909839321, 237981875869277, 10922592672383377, 520256404164231967, 26879210482658444513, 1556951523272630146229
Offset: 0
Examples
q(11) = 2*3*5*7*11*13*17*19*23*29*31 = 200560490130 and the 200560490130th prime is 5681909839321.
Programs
-
Mathematica
Prime[FoldList[Times, 1, Prime@ Range[10]]] (* Michael De Vlieger, Aug 10 2023 *)
-
PARI
a(n) = prime(vecprod(primes(n))); \\ Michel Marcus, Aug 11 2023
Extensions
a(11)=q(12)=p(37#) through a(15)=q(16)=p(53#) from Henri Lifchitz, Nov 11 2014
Missing a(0)=2 inserted by Alois P. Heinz, Apr 01 2021