OFFSET
1,1
LINKS
Ray Ballinger and Wilfrid Keller, List of primes k.2^n + 1 for k < 300
Wilfrid Keller, List of primes k.2^n - 1 for k < 300
MATHEMATICA
Select[Range[5*10^3], PrimeQ[297*2^# + 1] &] (* G. C. Greubel, May 25 2018 *)
PROG
(PARI) is(n)=ispseudoprime(297*2^n+1) \\ Charles R Greathouse IV, Jun 13 2017
(Magma) [n: n in [1..3000] | IsPrime(297*2^n+1)]; // G. C. Greubel, May 25 2018
CROSSREFS
KEYWORD
hard,nonn,more
AUTHOR
N. J. A. Sloane, Dec 29 1999
EXTENSIONS
a(28)-a(32) from the Ray Ballinger and Wilfrid Keller link by Robert Price, Dec 22 2018
a(33) from Jeppe Stig Nielsen, Mar 12 2020
STATUS
approved