The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A092050 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

Numbers n such that prime(n) == -8 (mod n).
(history; published version)

#4 by Russ Cox at Sat Mar 31 13:20:56 EDT 2012

COMMENTS

No more terms < 2*10^12. - _David Wasserman (wasserma(AT)spawar.navy.mil), _, Jun 09 2005

EXTENSIONS

More terms from _David Wasserman (wasserma(AT)spawar.navy.mil), _, Jun 09 2005

Discussion

Sat Mar 31

13:20

OEIS Server: https://oeis.org/edit/global/880

#3 by Russ Cox at Fri Mar 30 17:30:59 EDT 2012

AUTHOR

_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Feb 18 2004

Discussion

Fri Mar 30

17:30

OEIS Server: https://oeis.org/edit/global/156

#2 by N. J. A. Sloane at Tue Jul 19 03:00:00 EDT 2005

DATA

1, 63, 435, 100347, 100353, 100359, 637335, 129992911, 129993001, 129993007, 129993171, 8179002121, 8179002123, 8179002177, 382465573539

COMMENTS

No more terms < 2*10^12. - David Wasserman (wasserma(AT)spawar.navy.mil), Jun 09 2005

CROSSREFS

KEYWORD

nonn,new

nonn

EXTENSIONS

More terms from David Wasserman (wasserma(AT)spawar.navy.mil), Jun 09 2005

#1 by N. J. A. Sloane at Sat Jun 12 03:00:00 EDT 2004

NAME

Numbers n such that prime(n) == -8 (mod n).

DATA

1, 63, 435, 100347, 100353, 100359, 637335

OFFSET

1,2

MATHEMATICA

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == n - 8, Print[n]], {n, 1, 10^9}]

CROSSREFS

KEYWORD

nonn

AUTHOR

Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 18 2004

EXTENSIONS

Corrected by Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Feb 20 2004

STATUS

approved