login
A032463
Numbers k such that 173*2^k+1 is prime.
0
1, 13, 6253, 23313, 77289, 135033, 349149, 604585, 1099741, 1673881, 2199301, 2578197, 2729905
OFFSET
1,2
MATHEMATICA
Select[Range[1000], PrimeQ[173*2^# + 1] & ] (* Robert Price, Dec 18 2018 *)
PROG
(PARI) is(n)=ispseudoprime(173*2^n+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
Sequence in context: A103857 A263160 A373884 * A298273 A203585 A191937
KEYWORD
nonn,hard,more
AUTHOR
EXTENSIONS
a(6)-a(10) from the Ray Ballinger and Wilfrid Keller link by Robert Price, Dec 18 2018
a(11)-a(13) from Jeppe Stig Nielsen, Mar 12 2020
STATUS
approved