OFFSET
1,1
COMMENTS
For numbers m <= 320 that are not in the sequence, there exists an integer k <= 2*m such that m! + k! - 1 is a certified prime. For m > 320 the values of m! + k! - 1 are only probable primes. - Ryan Propper, Sep 02 2005
MATHEMATICA
Do[l = Range[1, 2*n]; If[Length[Select[l, PrimeQ[n! + #! - 1]&]] == 0, Print[n]], {n, 1, 729}] (* Ryan Propper, Sep 02 2005 *)
Select[Range[700], NoneTrue[Table[#!+k!-1, {k, 2#}], PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 24 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralf Stephan, Jun 01 2005
EXTENSIONS
a(13)-a(52) from Ryan Propper, Sep 02 2005
Name edited by Jon E. Schoenfield, Nov 18 2018
STATUS
approved