login
A322301
Primes p such that 5*2^p + 1 is also prime.
0
3, 7, 13, 127, 3313, 23473, 819739
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
Sequence in context: A237890 A082718 A221211 * A154821 A353008 A084741
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Dec 19 2018
STATUS
approved