OFFSET
1,1
COMMENTS
Corresponding primes are 89, 929, 135119, 34459409, ... .
a(20) > 50000.
LINKS
MATHEMATICA
Select[Range[4, 1000], PrimeQ[#!!-16]&] (* Robert Price, Jun 05 2015 *)
Do[f=n!! - 16; If[PrimeQ[f], Print[{n, f}]], {n, 4, 600}] (* Vincenzo Librandi, Jun 06 2015 *) (see comment)
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Robert Price, Jun 05 2015
STATUS
approved