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

-2, 17, 107, 524231, 8388539, 162259276829213363391578010287807

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jan 28 2009

Keywords

• sign

Comments

The next term has 1342 digits. - Harvey P. Dale, Dec 09 2013

Crossrefs

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

Programs

Mathematica

q=3;lst={};Do[p=Prime[n];If[PrimeQ[p=2^p-p*q],AppendTo[lst,p]],{n,5!}];lst
Select[2^#-3#&/@Prime[Range[900]],PrimeQ] (* Harvey P. Dale, Dec 09 2013 *)