OFFSET
1,1
COMMENTS
For the corresponding exponents n see A002259.
LINKS
Ray Ballinger, Wilfried Keller, List of primes k*2^n + 1 for k < 300.
EXAMPLE
From Muniru A Asiru, Mar 29 2018: (Start)
137 is a member because 17 * 2^3 + 1 = 137 which is a prime.
557057 is a member because 17 * 2^15 + 1 = 557057 which is a prime.
2281701377 is a member because 17 * 2^27 + 1 = 2281701377 which is a prime.
... (End)
MAPLE
a:=(n, k)->`if`(isprime(k*2^n+1), k*2^n+1, NULL):
seq(a(n, 17), n=1..267);
MATHEMATICA
Select[Table[17 2^n + 1, {n, 400}], PrimeQ] (* Vincenzo Librandi, Mar 07 2018 *)
PROG
(GAP) Filtered(List([1..270], n->17*2^n + 1), IsPrime); # Muniru A Asiru, Mar 06 2018
(Magma) [a: n in [1..300] | IsPrime(a) where a is 17*2^n + 1]; // Vincenzo Librandi, Mar 07 2018
(PARI) lista(nn) = {for(k=1, nn, if(ispseudoprime(p=17*2^k+1), print1(p, ", "))); } \\ Altug Alkan, Mar 28 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Martin Renner, Mar 05 2018
STATUS
approved