OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..577
MATHEMATICA
a[1] = 1; a[n_] := a[n] = Catch[For[k = 2, True, k++, an = k*a[n - 1]; If[PrimeQ[an + 1], Throw[an]]]]; Table[a[n], {n, 1, 23}] (* Jean-François Alcover, Nov 27 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 11 2003
EXTENSIONS
Edited by Don Reble, Jun 19 2003
STATUS
approved