%I A138599
%S A138599 16,17,19,21,22,24,25,33,34,36,46,49,60,70,90,93,112,137,143,207,216,
%T A138599 263,280
%N A138599 Numbers n such that 2^(2*n-31)-31 is prime.
%e A138599 2^(2*19-31)-31=97, 2^(2*21-31)-31=2017, 2^(2*22-31)-31=8161, ...
%t A138599 q=31;For[i=q,i<=q,a={};Do[x=2^(2*n-i)-i;If[PrimeQ[x],AppendTo[a,n]],{n,
               20^2}];Print["2^(2*n-",i,")-",i," ",a];i=i+2]
%Y A138599 Sequence in context: A004457 A115420 A145449 this_sequence A007636 A151977 
               A022106
%Y A138599 Adjacent sequences: A138596 A138597 A138598 this_sequence A138600 A138601 
               A138602
%K A138599 nonn
%O A138599 1,1
%A A138599 Vladimir Orlovsky (4vladimir(AT)gmail.com), May 13 2008