|
|
A267094
|
|
Primes p such that p*2^p + p + 2 is also prime.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
p=11: ((2^11)*11)+11+2 = 22541 (is prime).
|
|
MATHEMATICA
|
Select[Prime[Range[4000]], PrimeQ[# 2^# + # + 2] &] (* Vincenzo Librandi, Jan 19 2016 *)
|
|
PROG
|
(PARI) lista(nn) = forprime(p=2, nn, if(ispseudoprime(p*2^p + p + 2), print1(p, ", "))); \\ Altug Alkan, Jan 12 2016
(Magma) [p: p in PrimesUpTo(200) | IsPrime(p*2^p+p+2)]; // Vincenzo Librandi, Jan 19 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,hard,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|