%I A138603
%S A138603 22,24,36,60,1678
%N A138603 Numbers n such that 2^(2*n-43)-43 is prime.
%e A138603 2^(2*36-43)-43=536870869, 2^(2*60-43)-43=151115727451828646838229, ...
%t A138603 q=43;For[i=q,i<=q,a={};Do[x=2^(2*n-i)-i;If[PrimeQ[x],AppendTo[a,n]],{n,
               13^3}];Print["2^(2*n-",i,")-",i," ",a];i=i+2]
%Y A138603 Sequence in context: A165483 A067189 A030593 this_sequence A155911 A061411 
               A053779
%Y A138603 Adjacent sequences: A138600 A138601 A138602 this_sequence A138604 A138605 
               A138606
%K A138603 nonn
%O A138603 1,1
%A A138603 Vladimir Orlovsky (4vladimir(AT)gmail.com), May 13 2008