A300407 Primes of the form 17*2^n + 1.
137, 557057, 2281701377, 38280596832649217, 3032901347000164747248857685080177164813336577, 240291200809860268823328460101036918152537809975084178304538443375796289537, 4031417378886400659867047414062478199819447786118941877597755244819503521544011777
Offset: 1
Keywords
Examples
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)
Links
- Ray Ballinger, Wilfried Keller, List of primes k*2^n + 1 for k < 300.
Crossrefs
Programs
-
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
-
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 *) -
PARI
lista(nn) = {for(k=1, nn, if(ispseudoprime(p=17*2^k+1), print1(p, ", ")));} \\ Altug Alkan, Mar 28 2018
Comments