|
%I #8 Dec 03 2021 18:09:56
%S 20,21,24,30,66,74,390,1194,1244,2166,2580,4488
%N Numbers n such that 2^(2*n-37)-37 is prime.
%e 2^(2*24-37)-37=2011, 2^(2*30-37)-37=8388571, 2^(2*66-37)-37=39614081257132168796771975131,...
%t 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]
%t Select[Range[5000], PrimeQ[2^(2 # - 37) - 37] &] (* _Harvey P. Dale_, Dec 03 2021 *)
%o (PARI) is(n)=isprime(2^(2*n-37)-37) \\ _Charles R Greathouse IV_, Jun 13 2017
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 13 2008
%E More terms from _Harvey P. Dale_, Dec 03 2021
|
