OFFSET
1,1
COMMENTS
Primes in A002261.
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] &]
PROG
(Magma) [p: p in PrimesUpTo (6000) | IsPrime(11*2^p+1)];
(GAP) Filtered([1..1000], p -> IsPrime(p) and IsPrime(11*2^p+1)); # Muniru A Asiru, Dec 20 2018
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Dec 20 2018
EXTENSIONS
a(10) from Joerg Arndt Dec 20 2018
STATUS
approved