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 * A008940 A014368 A118865
Adjacent sequences: A138598 A138599 A138600 * A138602 A138603 A138604
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 13 2008
