%I #12 Mar 08 2015 14:17:40

%S 11,13,41,73,521

%N Consider primes p and q such that p = 2^k + 9 and q = 2^(k+1) + 9 for some k; sequence gives values of p.

%C No additional terms up to k=5000. - _Harvey P. Dale_, Mar 08 2015

%t 2^#+9&/@(Flatten[Position[Partition[If[PrimeQ[#],1,0]&/@(2^Range[10]+ 9),2,1],{1,1}]]) (* _Harvey P. Dale_, Mar 08 2015 *)

%o (PARI) g(m,n,b) = { for(x=0,n, y=m+b^x+b%2; z=m+b^(x+1)+b%2; if(isprime(y)&isprime(z),print1(y",") ) ) }

%Y Cf. A108265.

%K nonn

%O 1,1

%A _Cino Hilliard_, Jun 29 2005