OFFSET
1,1
COMMENTS
a(6) (if it exists) > 4000. - Hiroaki Yamanouchi, Sep 22 2014
a(13) > 200000. - Giovanni Resta, May 01 2016
MATHEMATICA
Select[Range[10^4], PrimeQ[#*2^# + (# + 1)] &] (* Michael De Vlieger, Mar 02 2015 *)
PROG
(PARI) for(n=1, 10^6, if(ispseudoprime(n*2^n+(n+1)), print1(n, ", "))); \\ Joerg Arndt, Mar 02 2015
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
EXTENSIONS
a(4)-a(5) from Hiroaki Yamanouchi, Sep 22 2014
New name from Hiroaki Yamanouchi, Sep 22 2014
Term a(6)-a(10) (pseudoprimes) from Joerg Arndt, Mar 02 2015
a(11)-a(12) (pseudoprimes) from Giovanni Resta, May 01 2016
STATUS
approved