A322302 Primes p such that 11*2^p + 1 is also prime.
3, 5, 7, 19, 43, 127, 211, 15329, 28277, 3771821
Offset: 1
Programs
-
GAP
Filtered([1..1000], p -> IsPrime(p) and IsPrime(11*2^p+1)); # Muniru A Asiru, Dec 20 2018
-
Magma
[p: p in PrimesUpTo (6000) | IsPrime(11*2^p+1)];
-
Maple
select(p->isprime(p) and isprime(11*2^p+1),[$1..1000]); # Muniru A Asiru, Dec 20 2018
-
Mathematica
Select[Prime[Range[1000]], PrimeQ[11 2^# + 1] &]
Extensions
a(10) from Joerg Arndt Dec 20 2018
Comments