1,1

2^(2*36-43)-43=536870869, 2^(2*60-43)-43=151115727451828646838229, ...

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]

Sequence in context: A165483 A067189 A030593 this_sequence A155911 A061411 A053779

Adjacent sequences: A138600 A138601 A138602 this_sequence A138604 A138605 A138606

nonn

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