1,1
2^(2*17-27)-27=101, 2^(2*23-27)-27=524261, 2^(2*25-27)-27=8388581, ...
q=27; 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]
Sequence in context: A004504 A176294 A090461 * A160661 A114841 A031168
Adjacent sequences: A138595 A138596 A138597 * A138599 A138600 A138601
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 13 2008
