|
%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
|
