%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