OFFSET
1,2
LINKS
Jeppe Stig Nielsen, Table of n, a(n) for n = 1..81 (terms n = 1..78 from Robert Price)
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(141*2^k+1), [$0..400])[]; # Muniru A Asiru, Dec 18 2018
MATHEMATICA
Select[Range[1000], PrimeQ[141*2^# + 1] & ] (* Robert Price, Dec 18 2018 *)
PROG
(PARI) is(n)=ispseudoprime(141*2^n+1) \\ Charles R Greathouse IV, Jun 07 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(51)-a(78) from the Ray Ballinger and Wilfrid Keller link by Robert Price, Dec 18 2018
STATUS
approved