%I #12 Apr 10 2017 12:25:31
%S 17,19,23,31,47,1039,2063,32783,4194319
%N Consider primes p and q such that p = 2^k + 15 and q = 2^(k+1) + 15 for some k; sequence gives values of p.
%C No additional terms up to k=100,000. - _Harvey P. Dale_, Apr 10 2017
%t 2^#+15&/@SequencePosition[Table[If[PrimeQ[2^n+15],1,0],{n,1000}],{1,1}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 10 2017 *)
%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. A108271.
%K nonn
%O 1,1
%A _Cino Hilliard_, Jun 29 2005
|