login
A155849
Primes of the form 2^p-p*q where p is prime,q=15.
0
-37, -43, 23, 130817, 2535301200456458802993406409237, 36499524940977561749129372845602330599145828057988479444633540143194201337669419092047302490538971198229138476588755258485509637771003503986021290557777713506015957394882119600662993537972820563
OFFSET
1,1
MATHEMATICA
q=15; lst={}; Do[p=Prime[n]; If[PrimeQ[p=2^p-p*q], AppendTo[lst, p]], {n, 5!}]; lst
KEYWORD
sign
AUTHOR
STATUS
approved