OFFSET
2,3
COMMENTS
The sequence of primes n!/a(n)+1, when a(n)>0, is increasing.
MATHEMATICA
Table[s = Select[Range[n - 1], PrimeQ[n!/# + 1] &, 1]; If[s == {}, 0, s[[1]]], {n, 2, 100}] (* T. D. Noe, Feb 13 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Feb 12 2012
STATUS
approved