|
%I #3 Mar 30 2012 17:30:59
%S 1,2,3,24,29,30,170,171,173,176,178,184,185,186,2616,6462,6467,6470,
%T 40090,40115,40118,40120,637330,10553400,10553441,10553451,10553458,
%U 10553503,10553548,27067046,27067134,27067136,69709702,69709704,69709716
%N Numbers n such that prime(n) == -7 (mod n).
%t NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == n - 7, Print[n]], {n, 1, 10^9}]
%Y Cf. A023149, A045924, A092044, A092045, A092046, A092047, A092048, A092050, A092051, 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
|
