A155846 Primes of the form 2^p-p*q where p is prime,q=5.

-7, 7, 1993, 130987, 536870767, 9007199254740727

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jan 28 2009

Keywords

• sign

Crossrefs

Cf. A057664, A155841, A155842, A155843, A155844, A057678, A155845

Programs

Mathematica

q=5;lst={};Do[p=Prime[n];If[PrimeQ[p=2^p-p*q],AppendTo[lst,p]],{n,5!}];lst
Select[Table[2^p-5p,{p,Prime[Range[50]]}],PrimeQ] (* Harvey P. Dale, Jul 02 2018 *)