A092047 Numbers n such that prime(n) == -5 (mod n).

1, 2, 4, 6, 8, 27, 28, 169, 183, 187, 188, 189, 438, 442, 1056, 1059, 40084, 40088, 40091, 40114, 40121, 100348, 251709, 4124588, 10553499, 10553853, 27066972, 179992914, 179992932, 179993012, 465769812, 1208198618, 1208198852

Offset: 1

Author

Robert G. Wilson v, Feb 18 2004

Keywords

• nonn

Crossrefs

Cf. A023147, A045924, A092044, A092045, A092046, A092048, A092049, A092050, A092051, A092052.

Programs

Mathematica

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

Extensions

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

a(28)-a(34) from Robert G. Wilson v, Feb 22 2006