%I #9 Dec 13 2018 12:19:14
%S 183809,220673,420353,629249,696833,1772033,1904129,2186753,4137473,
%T 4930049,5575169,6435329,7040513,8355329,9405953,9491969,9882113,
%U 10112513,10373633,11580929,11648513,11725313,13209089,13445633
%N Primes p such that 512p+1 and (p-1)/512 are both prime.
%t Prime[ Select[ Range[957580], PrimeQ[(Prime[ # ] - 1)/512] && PrimeQ[512Prime[ # ] + 1] &]]
%t Select[Prime[Range[900000]],AllTrue[{512#+1,(#-1)/512},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 13 2018 *)
%Y Cf. A085957, A085958, A086476, A086477.
%K nonn
%O 1,1
%A _Jason Earls_ and _Amarnath Murthy_, Jul 22 2003
%E Edited and extended by _Robert G. Wilson v_, Jul 26 2003
|