%I #7 Sep 04 2023 17:36:28
%S 3,5,7,31,37,41,61,103,137,2053,125887,968467
%N Primes in A032420.
%C Equivalently, primes p such that 141*2^p+1 is prime.
%p select(p->isprime(p) and isprime(141*2^p+1),[$1..400]);
%t Select[Prime[Range[140]],PrimeQ[141*2^#+1]&] (* _Harvey P. Dale_, Sep 04 2023 *)
%o (GAP) Filtered([1..400],p->IsPrime(p) and IsPrime(141*2^p+1));
%Y Subsequence of A032420.
%K nonn,more
%O 1,1
%A _Muniru A Asiru_, Dec 25 2018
|