editing
approved
editing
approved
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 *)
approved
editing
_Jason Earls _ and Amarnath Murthy, Jul 22 2003
Jason Earls and _Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Jul 22 2003
Edited and extended by _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Jul 26 2003
reviewed
approved
proposed
reviewed
183809, 220673, 420353, 629249, 696833, 1772033, 1904129, 2186753, 2186753, 4137473, 4930049, 5575169, 6435329, 7040513, 8355329, 9405953, 9491969, 9882113, 10112513, 10373633, 11580929, 11648513, 11725313, 13209089, 13445633
approved
proposed
Primes p such that 512p+1 and (p-1)/512 are both prime.
183809, 220673, 420353, 629249, 696833, 1772033, 1904129, 2186753, 2186753, 4137473, 4930049, 5575169, 6435329, 7040513, 8355329, 9405953, 9491969, 9882113, 10112513, 10373633, 11580929, 11648513, 11725313, 13209089, 13445633
1,1
Prime[ Select[ Range[957580], PrimeQ[(Prime[ # ] - 1)/512] && PrimeQ[512Prime[ # ] + 1] &]]
nonn
Jason Earls and Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jul 22 2003
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 26 2003
approved