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

%I #8 Feb 23 2020 18:09:54

%S 1,2,4,5,17,19,20,22,23,64,1055,1057,6463,251708,251743,251744,251755,

%T 251758,27067054,27067118,27067138,69709681,69709703,69709712,

%U 145935689366,382465573490,382465573498,6935812012621,126979448983610,885992692751476

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

%H Giovanni Resta, <a href="/A092051/b092051.txt">Table of n, a(n) for n = 1..39</a>

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

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

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Feb 18 2004

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

%E a(25) from _Robert G. Wilson v_, Feb 22 2006

%E Terms a(26) and beyond from _Giovanni Resta_, Feb 23 2020