A086478 Primes p such that 512p+1 and (p-1)/512 are both prime.

183809, 220673, 420353, 629249, 696833, 1772033, 1904129, 2186753, 4137473, 4930049, 5575169, 6435329, 7040513, 8355329, 9405953, 9491969, 9882113, 10112513, 10373633, 11580929, 11648513, 11725313, 13209089, 13445633

Offset: 1

Author

Jason Earls and Amarnath Murthy, Jul 22 2003

Keywords

• nonn

Crossrefs

Cf. A085957, A085958, A086476, A086477.

Programs

Mathematica

Prime[ Select[ Range[957580], PrimeQ[(Prime[ # ] - 1)/512] && PrimeQ[512Prime[ # ] + 1] &]]
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 *)

Extensions

Edited and extended by Robert G. Wilson v, Jul 26 2003