OFFSET
1,1
FORMULA
a(n) = nextprime((n-1)*a(n-1)).
MATHEMATICA
PrimeNext[n_]:=Module[{k}, k=n+1; While[ !PrimeQ[k], k++ ]; k]; p=2; lst={p}; Do[p=PrimeNext[n*p]; AppendTo[lst, p], {n, 2*4!}]; lst (* Vladimir Joseph Stephan Orlovsky, May 27 2009 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Nov 02 2002
EXTENSIONS
More terms from Vladeta Jovovic, Apr 14 2003
STATUS
approved