login
Primes p such that 32p+1 and (p-1)/32 are both prime.
3

%I #6 Dec 15 2017 17:41:10

%S 1889,8609,11489,25889,32609,46049,67169,98849,99809,107873,120929,

%T 124193,128033,139169,142433,157793,167393,168353,196193,208673,

%U 210209,241313,288929,295073,308129,311009,324449,354209,377633,396833,403553

%N Primes p such that 32p+1 and (p-1)/32 are both prime.

%e 1889 is a member as (1889-1)/32 = 59 and 32*1889 + 1= 60449 are both prime.

%t Prime[ Select[ Range[37063], PrimeQ[(Prime[ # ] - 1)/2^5] && PrimeQ[2^5Prime[ # ] + 1] & ]]

%t Select[Prime[Range[35000]],And@@PrimeQ[{32#+1,(#-1)/32}]&] (* _Harvey P. Dale_, Jan 23 2013 *)

%Y Cf. A085957, A085958, A086477, A086478.

%K nonn

%O 1,1

%A _Amarnath Murthy_ and _Jason Earls_, Jul 22 2003

%E Edited and extended by _Robert G. Wilson v_, Jul 26 2003