|
%I #6 Aug 10 2017 12:54:14
%S 3,4,6,16,108,112,118,274,346,1162,1620
%N Numbers n such that 2^(2*n-3)-3 is prime.
%e 2^(2*3-3)-3=5, 2^(2*4-3)-3=29, 2^(2*6-3)-3=509,...
%t q=3;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]
%t Select[Range[400],PrimeQ[2^(2#-3)-3]&] (* _Harvey P. Dale_, Aug 10 2017 *)
%o (PARI) is(n)=isprime(2^(2*n-3)-3) \\ _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_, Aug 10 2017
|
