OFFSET
1,1
COMMENTS
Previous name was: a(n) is the smallest integer greater than a(n-1) such that a(1)*a(2)*...*a(n) + 1 is prime.
MATHEMATICA
k = 5; a = {}; Do[If[PrimeQ[k n + 1], k = k n; AppendTo[a, n]], {n, 1, 3000}]; a
CROSSREFS
KEYWORD
dead
AUTHOR
Artur Jasinski, Sep 19 2008
STATUS
approved