login
A092052
Numbers n such that prime(n) == -10 (mod n).
10
1, 3, 437, 2639, 4124589, 27067013, 27067101, 27067139, 27067271, 382465573551, 18262325820327, 18262325820329, 18262325820333, 885992692751831, 6201265271239783, 6201265271239997, 6201265271240071, 6201265271240403, 306268030480171331
OFFSET
1,2
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}]
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