A322749 Primes in A032420.
3, 5, 7, 31, 37, 41, 61, 103, 137, 2053, 125887, 968467
Offset: 1
Crossrefs
Subsequence of A032420.
Programs
-
GAP
Filtered([1..400],p->IsPrime(p) and IsPrime(141*2^p+1));
-
Maple
select(p->isprime(p) and isprime(141*2^p+1),[$1..400]);
-
Mathematica
Select[Prime[Range[140]],PrimeQ[141*2^#+1]&] (* Harvey P. Dale, Sep 04 2023 *)
Comments