OFFSET
1,1
LINKS
Jeppe Stig Nielsen, Table of n, a(n) for n = 1..60 (terms n = 1..54 from Robert Price)
Ray Ballinger, Proth Search Page
Ray Ballinger and Wilfrid Keller, List of primes k.2^n + 1 for 300 < k < 600
Wilfrid Keller, List of primes k.2^n - 1 for k < 300
Eric Weisstein's World of Mathematics, Proth Prime
MAPLE
select(k->isprime(427*2^k+1), [$1..1000]); # Muniru A Asiru, Jan 05 2019
MATHEMATICA
Select[Range[1000], PrimeQ[427*2^# + 1] &]
PROG
(Python)
from sympy.ntheory.primetest import isprime
for n in range(1, 1000):
if isprime(427*2**n+1):
print(n, end=', ') # Stefano Spezia, Jan 05 2019
CROSSREFS
KEYWORD
nonn,hard,changed
AUTHOR
Robert Price, Jan 04 2019
STATUS
approved