来自在线整数百科全书的问候语!http://oeis.org/ Search: id:a092049 Showing 1-1 of 1 %I A092049 %S A092049 1,2,3,24,29,30,170,171,173,176,178,184,185,186,2616,6462,6467,6470, %T A092049 40090,40115,40118,40120,637330,10553400,10553441,10553451,10553458, %U A092049 10553503,10553548,27067046,27067134,27067136,69709702,69709704,69709716 %N A092049 Numbers n such that prime(n) == -7 (mod n). %t A092049 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 A092049 Cf. A023149, A045924, A092044, A092045, A092046, A092047, A092048, A092050, A092051, A092052. %K A092049 nonn %O A092049 1,2 %A A092049 _Robert G. Wilson v_, Feb 18 2004 %E A092049 Corrected by Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Feb 20 2004 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE