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 * A181454 A155911 A061411
Adjacent sequences: A138600 A138601 A138602 * A138604 A138605 A138606
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 13 2008
