login
A032468
Numbers k such that 183*2^k+1 is prime.
1
1, 2, 5, 10, 21, 34, 61, 72, 157, 169, 193, 216, 389, 464, 596, 657, 794, 1289, 1616, 1736, 1994, 2344, 3024, 4084, 4420, 5840, 6481, 12010, 12521, 12920, 13762, 15652, 17480, 17800, 22514, 25193, 40989, 55565, 57440, 88409, 92146, 123964, 150485, 163953
OFFSET
1,2
LINKS
MAPLE
select(k->isprime(183*2^k+1), [$0..1000]); # Muniru A Asiru, Dec 18 2018
MATHEMATICA
Select[Range[1000], PrimeQ[183*2^# + 1] & ] (* Robert Price, Dec 18 2018 *)
PROG
(PARI) is(n)=ispseudoprime(183*2^n+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
Sequence in context: A124146 A262408 A344378 * A327286 A215925 A359209
KEYWORD
nonn,hard
AUTHOR
EXTENSIONS
a(41)-a(60) from the Ray Ballinger and Wilfrid Keller link by Robert Price, Dec 18 2018
STATUS
approved