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,2

Links

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

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}]

Crossrefs

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

Sequence in context: A334679 A222712 A117912 * A057809 A135632 A068541

Adjacent sequences: A092044 A092045 A092046 * A092048 A092049 A092050

Keyword

nonn

Author

Robert G. Wilson v, Feb 18 2004

Extensions

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

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

Status

approved