OFFSET
1,1
COMMENTS
a(17) > 50000. - Robert Price, Feb 15 2015
LINKS
The OpenPFGW Project, Primality Tester
MATHEMATICA
lst={}; Do[If[PrimeQ[n!!+2^9], (*Print[n]; *)AppendTo[lst, n]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 26 2008 *)
Select[Range[33000], PrimeQ[#!!+2^9]&] (* Harvey P. Dale, Mar 29 2019 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Zak Seidov, Nov 02 2002
EXTENSIONS
Edited and extended (n < 4096) by Hugo Pfoertner, Jun 19 2003
a(13)-a(15) from Robert Price, Feb 25 2013
a(16) from Robert Price, Feb 15 2015
STATUS
approved