A155845 - OEIS

%I #5 Dec 09 2013 10:54:56

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

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

%C The next term has 1342 digits. - _Harvey P. Dale_, Dec 09 2013

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

%t Select[2^#-3#&/@Prime[Range[900]],PrimeQ] (* _Harvey P. Dale_, Dec 09 2013 *)

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

%K sign

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Jan 28 2009