A082993 a(1) = 2; a(n+1) = least prime > a(1)*a(2)*...*a(n).

2, 3, 7, 43, 1811, 3270667, 10697259354227, 114431357691543566765996431, 13094535623129987017538646614449662873664453962870113

Offset

1,1

Links

Hugo Pfoertner, Table of n, a(n) for n = 1..13

Mathematica

Module[{prod=2, nx, ls={2}}, Do[nx=NextPrime[prod]; prod=prod*nx; AppendTo[ ls, nx], {10}]; ls] (* Harvey P. Dale, Jul 07 2013 *)
nxt[{p_, a_}]:=Module[{c=NextPrime[p]}, {p*c, c}]; NestList[nxt, {2, 2}, 10][[All, 2]] (* Harvey P. Dale, Jun 10 2020 *)

Crossrefs

Cf. A340505.

Sequence in context: A000058 A129871 A075442 * A071580 A359340 A267507

Adjacent sequences: A082990 A082991 A082992 * A082994 A082995 A082996

Keyword

nonn

Author

Joseph L. Pe, May 29 2003

Extensions

Two more terms from Zak Seidov, Oct 16 2006

Status

approved