OFFSET
1,1
COMMENTS
a(16) > 3000. - Ray G. Opao, Oct 05 2008
a(18) > 25000. - Robert Price, Nov 20 2016
MATHEMATICA
a = {}; Do[If[PrimeQ[(n! - 5)/5], Print[a]; AppendTo[a, n]], {n, 1, 300}]; a (* Artur Jasinski *)
PROG
(Magma) [n: n in [5..500] | IsPrime((Factorial(n)-5) div 5)]; // Vincenzo Librandi, Nov 21 2016
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Artur Jasinski, Apr 11 2008
EXTENSIONS
a(13)-a(15) from Ray G. Opao, Oct 05 2008
a(16) from Serge Batalov, Feb 18 2015
a(17) from Robert Price, Nov 20 2016
STATUS
approved