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

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

Offset

1,1

Comments

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

Links

Table of n, a(n) for n=1..6.

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 *)

Crossrefs

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

Sequence in context: A204238 A198796 A186104 * A115354 A100274 A213785

Adjacent sequences: A155842 A155843 A155844 * A155846 A155847 A155848

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Jan 28 2009

Status

approved