login
A032472
Numbers k such that 191*2^k+1 is prime.
1
1, 5, 15, 19, 41, 59, 89, 149, 167, 181, 201, 295, 475, 481, 857, 1249, 1409, 1715, 1995, 8291, 11031, 26219, 38029, 39155, 61747, 73855, 168707, 180559, 266997, 366215, 449381, 552085, 585377, 903061, 1099867, 1487775, 1496507, 1567005, 1766221, 1916611
OFFSET
1,2
COMMENTS
The subsequence of prime values starts 5, 19, 41, 59, 89, 149, 167, 181, 857, 1249, 1409, 8291, 449381, 1099867, 1496507, 1916611, ... - Muniru A Asiru, Apr 20 2019
MAPLE
select(k->isprime(191*2^k+1), [$0..1000]); # Muniru A Asiru, Dec 18 2018
MATHEMATICA
Select[Range[1000], PrimeQ[191*2^# + 1] & ] (* Robert Price, Dec 18 2018 *)
PROG
(PARI) is(n)=ispseudoprime(191*2^n+1) \\ Charles R Greathouse IV, Jun 07 2017
CROSSREFS
Sequence in context: A102180 A365910 A045520 * A290551 A045176 A273908
KEYWORD
nonn,hard
EXTENSIONS
a(27)-a(40) from the Ray Ballinger and Wilfrid Keller link by Robert Price, Dec 18 2018
STATUS
approved