A092045 Numbers n such that prime(n) == -3 (mod n).

1, 2, 25, 26, 68, 1054, 1058, 6472, 251723, 4124468, 69709727, 69709942, 465769817, 465769835, 1208198860, 8179002154, 8179002176, 8179002178, 145935689360, 145935689369, 145935689392, 145935689393

Offset

1,2

Links

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

Mathematica

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == n - 3, Print[n]], {n, 1, 10^9}]
Join[{1, 2}, Select[Range[5 10^6], Mod[Prime[#], #]==#-3&]] (* Harvey P. Dale, Mar 29 2023 *)

Crossrefs

Cf. A023145, A045924, A092044, A092046, A092047, A092048, A092049, A092050, A092051, A092052.

Sequence in context: A076449 A153811 A101962 * A317886 A054283 A041723

Adjacent sequences: A092042 A092043 A092044 * A092046 A092047 A092048

Keyword

nonn

Author

Robert G. Wilson v, Feb 18 2004

Extensions

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

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

Status

approved