A076196 Numbers k such that k!! + 2^9 is prime.
7, 13, 15, 19, 25, 133, 135, 199, 223, 297, 299, 511, 15263, 16491, 18967, 32455
Offset: 1
Links
- The OpenPFGW Project, Primality Tester
Crossrefs
Programs
-
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 *)
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
Comments