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

-13, -3, 79, 8101

Offset

1,1

Links

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

Mathematica

q=7; 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

Sequence in context: A272175 A297874 A298137 * A329983 A204594 A204157

Adjacent sequences: A155844 A155845 A155846 * A155848 A155849 A155850

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Jan 28 2009

Status

approved