OFFSET
1,1
MATHEMATICA
Select[Range[200], PrimeQ[(# - 1)*2^# + 1] &] (* G. C. Greubel, May 08 2018 *)
PROG
(PARI) is(n)=ispseudoprime((n-1)<<n+1) \\ Charles R Greathouse IV, Jun 06 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, Jan 25 2008
EXTENSIONS
a(8)-a(14) from Jason Earls, Jan 29 2008
a(15)-a(18) from Charles R Greathouse IV, Oct 09 2011
STATUS
approved