|
%I #14 Sep 08 2022 08:46:20
%S 7,23,163,557,32843,2097257,8589934757,137438953657,
%T 2305843009213694257,2787593149816327892691964784081045188248257,
%U 730750818665451459101842416358141509827966272283,862718293348820473429344482784628181556388621521298319395315527976057
%N Primes of the form 2^k + 5*k.
%C Primes in A297663.
%e 2^1 + 5*1 = 2 + 5 = 7 is prime.
%e 2^3 + 5*3 = 8 + 15 = 23 is prime.
%e 2^7 + 5*7 = 128 + 35 = 163 is prime.
%p select(isprime, [seq(2^k + 5*k, k=0..300)]); # _Muniru A Asiru_, Mar 04 2018
%t Select[Table[2^n + 5 n, {n, 0, 300}], PrimeQ]
%o (Magma) [a: n in [0..450] | IsPrime(a) where a is 2^n + 5*n ];
%o (PARI) lista(nn) = for(k=1, nn, if(isprime(p=2^k + 5*k), print1(p, ", "))); \\ _Altug Alkan_, Mar 03 2018
%o (GAP) Filtered(List([1..300],k->2^k + 5*k),IsPrime); # _Muniru A Asiru_, Mar 04 2018
%Y Cf. A297663.
%K nonn
%O 1,1
%A _Vincenzo Librandi_, Feb 28 2018
%E a(12) from _Muniru A Asiru_, Mar 04 2018
| 