A092051 Numbers n such that prime(n) == -9 (mod n).

1, 2, 4, 5, 17, 19, 20, 22, 23, 64, 1055, 1057, 6463, 251708, 251743, 251744, 251755, 251758, 27067054, 27067118, 27067138, 69709681, 69709703, 69709712, 145935689366, 382465573490, 382465573498, 6935812012621, 126979448983610, 885992692751476

Offset

1,2

Links

Giovanni Resta, Table of n, a(n) for n = 1..39

Mathematica

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

Crossrefs

Cf. A023151, A045924, A092044, A092045, A092046, A092047, A092048, A092049, A092050, A092052.

Sequence in context: A038757 A062549 A169602 * A065063 A276311 A056440

Adjacent sequences: A092048 A092049 A092050 * A092052 A092053 A092054

Keyword

nonn

Author

Robert G. Wilson v, Feb 18 2004

Extensions

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

a(25) from Robert G. Wilson v, Feb 22 2006

Terms a(26) and beyond from Giovanni Resta, Feb 23 2020

Status

approved