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

-37, -43, 23, 130817, 2535301200456458802993406409237, 36499524940977561749129372845602330599145828057988479444633540143194201337669419092047302490538971198229138476588755258485509637771003503986021290557777713506015957394882119600662993537972820563

Offset

1,1

Links

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

Mathematica

q=15; lst={}; Do[p=Prime[n]; If[PrimeQ[p=2^p-p*q], AppendTo[lst, p]], {n, 5!}]; lst

Crossrefs

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

Sequence in context: A073686 A176926 A217411 * A295154 A224319 A282111

Adjacent sequences: A155846 A155847 A155848 * A155850 A155851 A155852

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Jan 28 2009

Status

approved