%I #4 Jun 13 2017 12:50:36
%S 10,11,12,13,15,17,19,20,25,29,43,44,52,88,95,105,137,155,199
%N Numbers n such that 2^(2*n-19)-19 is prime.
%e 2^(2*15-19)-19=2029, 2^(2*17-19)-19=32749, ...
%t q=19;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]
%o (PARI) is(n)=isprime(2^(2*n-19)-19) \\ _Charles R Greathouse IV_, Jun 13 2017
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 13 2008
|