%I #7 Apr 17 2022 22:47:39
%S -19,-13,1949,2535301200456458802993406409843
%N Primes of the form 2^p-p*q where p is prime, q=9.
%t q=9;lst={};Do[p=Prime[n];If[PrimeQ[p=2^p-p*q],AppendTo[lst,p]],{n,5!}];lst
%t Select[2^#-9#&/@Prime[Range[50]],PrimeQ] (* _Harvey P. Dale_, Aug 26 2014 *)
%Y Cf. A057664, A155841, A155842, A155843, A155844, A057678, A155845, A155846, A155847.
%K sign
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 28 2009
|