OFFSET
1,2
LINKS
Jeppe Stig Nielsen, Table of n, a(n) for n = 1..47
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
MATHEMATICA
Select[Range[1000], PrimeQ[131*2^# + 1] & ] (* Robert Price, Dec 17 2018 *)
PROG
(PARI) is(n)=ispseudoprime(131*2^n+1) \\ Charles R Greathouse IV, Jun 13 2017
(Magma) [n: n in [1..6000] | IsPrime(131*2^n+1)]; // Vincenzo Librandi, Dec 18 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Extended by Hugo Pfoertner, Jul 02 2003
a(38)-a(43) from the Ray Ballinger and Wilfrid Keller link by Robert Price, Dec 17 2018
a(44) from Jeppe Stig Nielsen, Dec 23 2024
STATUS
approved