|
%I #12 Jan 22 2021 16:27:27
%S 2,3,7,43,1811,3270667,10697259354227,114431357691543566765996431,
%T 13094535623129987017538646614449662873664453962870113
%N a(1) = 2; a(n+1) = least prime > a(1)*a(2)*...*a(n).
%H Hugo Pfoertner, <a href="/A082993/b082993.txt">Table of n, a(n) for n = 1..13</a>
%t Module[{prod=2,nx,ls={2}},Do[nx=NextPrime[prod];prod=prod*nx;AppendTo[ ls,nx],{10}];ls] (* _Harvey P. Dale_, Jul 07 2013 *)
%t nxt[{p_,a_}]:=Module[{c=NextPrime[p]},{p*c,c}]; NestList[nxt,{2,2},10][[All,2]] (* _Harvey P. Dale_, Jun 10 2020 *)
%Y Cf. A340505.
%K nonn
%O 1,1
%A _Joseph L. Pe_, May 29 2003
%E Two more terms from _Zak Seidov_, Oct 16 2006
|
