A076133 Numbers k such that 2*k! - 1 is prime.

2, 3, 4, 5, 6, 7, 14, 15, 17, 22, 28, 91, 253, 257, 298, 659, 832, 866, 1849, 2495, 2716, 2773, 2831, 3364, 5264, 7429, 28539, 32123, 37868

Offset

1,1

Links

Table of n, a(n) for n=1..29.

Example

k = 5 is here because 2*5! - 1 = 239 is prime.

Mathematica

Select[Range[8000], PrimeQ[2 #! - 1] &] (* Vincenzo Librandi, Feb 20 2015 *)

Prog

(Magma) [n: n in [1..600] | IsPrime(2*Factorial(n)-1)]; // Vincenzo Librandi, Feb 20 2015
(PARI) is(k) = ispseudoprime(2*k!-1); \\ Jinyuan Wang, Feb 04 2020

Crossrefs

Cf. A051915.

Cf. A002982, A076134, A099350, A099351, A180627, A180628, A180629, A180630, A180631.

Sequence in context: A363331 A363334 A066336 * A277908 A032862 A032886

Adjacent sequences: A076130 A076131 A076132 * A076134 A076135 A076136

Keyword

nonn,more

Author

Phillip L. Poplin (plpoplin(AT)bellsouth.net), Oct 30 2002

Extensions

a(24)-a(29) from Serge Batalov, Feb 18 2015

Status

approved