|
EXAMPLE
|
2^(2*23-7)-7=549755813881,
2^(2*361-7)-7=172364133221937103085272756482216056112753534658909761028039668631756215232006\
744379020625060744018369805777923479247838020220755974022884986972234404720831\
691332769255536872593544438018353486799545737272878084128761
|
|
MATHEMATICA
|
q=7; For[i=q, i<=q, a={}; Do[x=2^(2*n-i)-i; If[PrimeQ[x], AppendTo[a, n]], {n, 10^2}]; Print["2^(2*n-", i, ")-", i, " ", a]; i=i+2]
|
