A086478 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..24.

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 *)

CROSSREFS

Cf. A085957, A085958, A086476, A086477.

Sequence in context: A030466 A233956 A249232 * A207795 A228677 A268853

Adjacent sequences: A086475 A086476 A086477 * A086479 A086480 A086481

KEYWORD

nonn

AUTHOR

Jason Earls and Amarnath Murthy, Jul 22 2003

EXTENSIONS

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

STATUS

approved