OFFSET
0,3
COMMENTS
Next term is greater than 4000. - Sean A. Irvine, Apr 04 2011
EXAMPLE
a(4) = 6 as 1!*2!*3!*6! + 1 = 8641 is a prime but 1!*2!*3!*4! + 1 = 289 is not.
MATHEMATICA
v={0}; Print[0]; Do[a=Product[v[[k]]!, {k, n}]; For[m=1, MemberQ[v, m] ||!PrimeQ[1 + m!a], m++ ]; AppendTo[v, m]; Print[m], {n, 19}] (* Farideh Firoozbakht, Oct 19 2006 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amarnath Murthy, May 22 2004
EXTENSIONS
More terms from Farideh Firoozbakht, Oct 19 2006
Corrected and extended by Sean A. Irvine and Farideh Firoozbakht, Apr 04 2011
Name clarified by Jinyuan Wang, Mar 03 2020
STATUS
approved