1,1

2^(2*24-37)-37=2011, 2^(2*30-37)-37=8388571, 2^(2*66-37)-37=39614081257132168796771975131,...

q=37; For[i=q, i<=q, a={}; Do[x=2^(2*n-i)-i; If[PrimeQ[x], AppendTo[a, n]], {n, 10^3}]; Print["2^(2*n-", i, ")-", i, " ", a]; i=i+2]

Sequence in context: A030605 A063780 A125663 this_sequence A008940 A014368 A118865

Adjacent sequences: A138598 A138599 A138600 this_sequence A138602 A138603 A138604

nonn

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