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: A094836 A004504 A090461 this_sequence A160661 A114841 A108856

Adjacent sequences: A138595 A138596 A138597 this_sequence A138599 A138600 A138601

nonn

Vladimir Orlovsky (4vladimir(AT)gmail.com), May 13 2008