OFFSET
1,1
COMMENTS
Primes in A002254.
MAPLE
select(p->isprime(p) and isprime(5*2^p+1), [$0..5000]); # Muniru A Asiru, Dec 19 2018
MATHEMATICA
Select[Prime[Range[4000]], PrimeQ[5 2^# + 1] &]
PROG
(Magma) [p: p in PrimesUpTo (10000) | IsPrime(5*2^p+1)];
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Dec 19 2018
STATUS
approved