|
%I #27 Aug 11 2023 09:59:33
%S 2,3,13,113,1291,20443,350741,7535917,173723909,4735396021,
%T 160158887507,5681909839321,237981875869277,10922592672383377,
%U 520256404164231967,26879210482658444513,1556951523272630146229
%N a(n) = prime(q(n)), where q(n) = A002110(n).
%F a(n) = A000040(A002110(n)).
%e q(11) = 2*3*5*7*11*13*17*19*23*29*31 = 200560490130 and the 200560490130th prime is 5681909839321.
%t Prime[FoldList[Times, 1, Prime@ Range[10]]] (* _Michael De Vlieger_, Aug 10 2023 *)
%o (PARI) a(n) = prime(vecprod(primes(n))); \\ _Michel Marcus_, Aug 11 2023
%Y Cf. A000040, A002110.
%K nonn,hard,more
%O 0,1
%A _Labos Elemer_, Jul 09 2001
%E a(11)=q(12)=p(37#) through a(15)=q(16)=p(53#) from _Henri Lifchitz_, Nov 11 2014
%E Missing a(0)=2 inserted by _Alois P. Heinz_, Apr 01 2021
|
