OFFSET
1,1
COMMENTS
For primes of the form (7+k!)/7, see A139064.
a(23) > 25000. - Robert Price, Nov 20 2016
MATHEMATICA
a = {}; Do[If[PrimeQ[(n! + 7)/7], AppendTo[a, n]], {n, 1, 500}]; a
Select[Range[500], PrimeQ[(7+#!)/7]&] (* Harvey P. Dale, Sep 01 2014 *)
PROG
(PARI) for(k=7, 1e3, if(ispseudoprime(k!/7+1), print1(k", "))) \\ Charles R Greathouse IV, Jul 15 2011
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Artur Jasinski, Apr 07 2008
EXTENSIONS
More terms from Serge Batalov, Feb 18 2015
a(18)-a(22) from Robert Price, Nov 20 2016
STATUS
approved