A092052 Numbers n such that prime(n) == -10 (mod n).

1, 3, 437, 2639, 4124589, 27067013, 27067101, 27067139, 27067271, 382465573551, 18262325820327, 18262325820329, 18262325820333, 885992692751831, 6201265271239783, 6201265271239997, 6201265271240071, 6201265271240403, 306268030480171331

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A023152, A045924, A092044, A092045, A092046, A092047, A092048, A092049, A092050, A092051.

Sequence in context: A361886 A086207 A326373 * A139999 A140870 A157601

Adjacent sequences: A092049 A092050 A092051 * A092053 A092054 A092055

Keyword

nonn,more

Author

Robert G. Wilson v, Feb 18 2004

Extensions

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

a(10)-a(19) from Giovanni Resta, Feb 23 2020

Status

approved