OFFSET
1,1
LINKS
Ray Ballinger, Proth Search Page
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
MAPLE
select(k->isprime(185*2^k+1), [$0..1000]); # Muniru A Asiru, Dec 18 2018
MATHEMATICA
Select[Range[1000], PrimeQ[185*2^# + 1] & ] (* Robert Price, Dec 18 2018 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
EXTENSIONS
a(16)-a(19) from the Ray Ballinger and Wilfrid Keller link by Robert Price, Dec 18 2018
a(20) from Jeppe Stig Nielsen, Apr 19 2020
STATUS
approved