OFFSET
1,1
COMMENTS
a(5) > 4000. - Ray G. Opao, Oct 23 2014
a(5) > 101000. - Serge Batalov, Apr 13 2018
EXAMPLE
3 is in the sequence since 2*3^3 - 1 = 53 is prime.
MATHEMATICA
Select[Range[1000], PrimeQ[2*#^# - 1] &] (* Vaclav Kotesovec, Oct 31 2014 *)
PROG
(PARI) for(n=1, 2000, 1; if(isprime(2*n^n-1), print(n))) \\ Ray G. Opao, Oct 23 2014
(Magma) [n: n in [0..500] | IsPrime(2*n^n-1)]; // Vincenzo Librandi, Nov 01 2014
CROSSREFS
KEYWORD
more,nonn,hard
AUTHOR
Ray G. Opao, Sep 25 2005
EXTENSIONS
a(5-6) from Ryan Propper, Jul 24-28 2022
STATUS
approved