A092049 - OEIS

A092049

Numbers n such that prime(n) == -7 (mod n).

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..35.

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

CROSSREFS

Cf. A023149, A045924, A092044, A092045, A092046, A092047, A092048, A092050, A092051, A092052.

Sequence in context: A055067 A037319 A032811 * A257789 A336616 A354278

Adjacent sequences: A092046 A092047 A092048 * A092050 A092051 A092052

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Feb 18 2004

EXTENSIONS

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

STATUS

approved