login

Revision History for A086478

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
Primes p such that 512p+1 and (p-1)/512 are both prime.
(history; published version)
#9 by Harvey P. Dale at Thu Dec 13 12:19:14 EST 2018
STATUS

editing

approved

#8 by Harvey P. Dale at Thu Dec 13 12:19:11 EST 2018
MATHEMATICA

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

STATUS

approved

editing

#7 by N. J. A. Sloane at Fri Dec 15 17:44:30 EST 2017
AUTHOR

_Jason Earls _ and Amarnath Murthy, Jul 22 2003

Discussion
Fri Dec 15
17:44
OEIS Server: https://oeis.org/edit/global/2724
#6 by N. J. A. Sloane at Thu Dec 05 19:56:19 EST 2013
AUTHOR

Jason Earls and _Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Jul 22 2003

Discussion
Thu Dec 05
19:56
OEIS Server: https://oeis.org/edit/global/2075
#5 by Russ Cox at Fri Mar 30 17:30:55 EDT 2012
EXTENSIONS

Edited and extended by _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Jul 26 2003

Discussion
Fri Mar 30
17:30
OEIS Server: https://oeis.org/edit/global/156
#4 by D. S. McNeil at Sun Dec 19 06:39:17 EST 2010
STATUS

reviewed

approved

#3 by Joerg Arndt at Sun Dec 19 06:05:06 EST 2010
STATUS

proposed

reviewed

#2 by D. S. McNeil at Sun Dec 19 02:25:25 EST 2010
DATA

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

STATUS

approved

proposed

#1 by N. J. A. Sloane at Sat Sep 13 03:00:00 EDT 2003
NAME

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

DATA

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

OFFSET

1,1

MATHEMATICA

Prime[ Select[ Range[957580], PrimeQ[(Prime[ # ] - 1)/512] && PrimeQ[512Prime[ # ] + 1] &]]

CROSSREFS
KEYWORD

nonn

AUTHOR

Jason Earls and Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jul 22 2003

EXTENSIONS

Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 26 2003

STATUS

approved