OFFSET
1,2
COMMENTS
a(18) > 10^4.- Robert Price, Mar 08 2015
MATHEMATICA
Select[Range[1000], PrimeQ[2^# (#+1)!-1]&] (* Harvey P. Dale, Nov 23 2014 *)
PROG
(Magma) [n: n in [0..500] | IsPrime(2^n*Factorial(n+1)-1)]; // Vincenzo Librandi, Mar 08 2015
(PARI) is(n)=ispseudoprime(2^n*(n+1)!-1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Jorge Coveiro, Dec 24 2004
EXTENSIONS
a(12) from Harvey P. Dale, Nov 23 2014
a(13)-a(17) from Robert Price, Mar 08 2015
STATUS
approved