login
A032476
Numbers k such that 199*2^k+1 is prime.
0
2, 14, 18, 126, 134, 854, 1302, 22562, 42078, 44702, 44942, 60738, 267614
OFFSET
1,1
MATHEMATICA
Select[Range[1000], PrimeQ[199*2^# + 1] & ] (* Robert Price, Dec 19 2018 *)
PROG
(PARI) is(n)=ispseudoprime(199*2^n+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
Sequence in context: A212048 A322955 A266388 * A274062 A059205 A298002
KEYWORD
nonn,more,hard
AUTHOR
EXTENSIONS
a(13) from the Ray Ballinger and Wilfrid Keller link by Robert Price, Dec 19 2018
STATUS
approved