OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..586
MATHEMATICA
a[1] = 3; 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, 22}](* Jean-François Alcover, Nov 27 2012 *)
smp[n_]:=Module[{k=2}, While[!PrimeQ[k*n-1], k++]; k*n]; NestList[smp, 3, 30] (* Harvey P. Dale, Jun 03 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 11 2003
EXTENSIONS
Edited by Don Reble, Jun 19 2003
STATUS
approved