login
A155844
Primes of the form q*p+2^p where p is prime, q=13.
5
47, 97, 131293, 140737488355939, 2361183241434822607771
OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p=13*p+2^p], AppendTo[lst, p]], {n, 5!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved