A101323 Numbers n such that 2^n*(n+1)!-1 is prime.
1, 2, 3, 5, 6, 7, 10, 12, 101, 117, 227, 884, 1323, 2167, 3483, 6274, 7887
Offset: 1
Keywords
Crossrefs
Cf. A093155.
Programs
-
Magma
[n: n in [0..500] | IsPrime(2^n*Factorial(n+1)-1)]; // Vincenzo Librandi, Mar 08 2015
-
Mathematica
Select[Range[1000],PrimeQ[2^# (#+1)!-1]&] (* Harvey P. Dale, Nov 23 2014 *)
-
PARI
is(n)=ispseudoprime(2^n*(n+1)!-1) \\ Charles R Greathouse IV, Jun 13 2017
Extensions
a(12) from Harvey P. Dale, Nov 23 2014
a(13)-a(17) from Robert Price, Mar 08 2015
Comments