OFFSET
1,1
LINKS
Jeppe Stig Nielsen, Table of n, a(n) for n = 1..68 (terms n = 1..66 from Robert Price)
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
Ray Ballinger, Proth Search Page
MATHEMATICA
f[n_]:=PrimeQ[207*2^n+1]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Mar 03 2010 *)
Select[Range[1000], PrimeQ[207*2^# + 1] & ] (* Robert Price, Dec 19 2018 *)
PROG
(PARI) is(n)=ispseudoprime(207*2^n+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,hard
AUTHOR
EXTENSIONS
a(50)-a(66) from the Ray Ballinger and Wilfrid Keller link by Robert Price, Dec 19 2018
STATUS
approved