OFFSET
1,1
COMMENTS
Equivalently, primes p such that 141*2^p+1 is prime.
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 *)
PROG
(GAP) Filtered([1..400], p->IsPrime(p) and IsPrime(141*2^p+1));
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Muniru A Asiru, Dec 25 2018
STATUS
approved