login
A092049
Numbers n such that prime(n) == -7 (mod n).
10
1, 2, 3, 24, 29, 30, 170, 171, 173, 176, 178, 184, 185, 186, 2616, 6462, 6467, 6470, 40090, 40115, 40118, 40120, 637330, 10553400, 10553441, 10553451, 10553458, 10553503, 10553548, 27067046, 27067134, 27067136, 69709702, 69709704, 69709716
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 - 7, Print[n]], {n, 1, 10^9}]
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 18 2004
EXTENSIONS
Corrected by Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Feb 20 2004
STATUS
approved