A023149 -id:A023149 - cp's OEIS frontend

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

Offset: 1

Robert G. Wilson v, Feb 18 2004

nonn

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

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

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

A171434 Primes that are congruent to 7 mod n, where n is the index of the prime.

Original entry on oeis.org

2, 3, 7, 13, 61, 151, 397, 1153, 64567, 64577, 480967, 480979, 9559867, 9559897, 9560167, 189961657, 189961819, 189962593, 189963043, 189964321, 189969379, 514272779, 514275401, 1394193607, 1394194727, 1394198807, 10246936003, 75370121191, 75370121767, 75370121839

Offset: 1

Vladimir Joseph Stephan Orlovsky, Dec 09 2009

nonn

Giovanni Resta, Table of n, a(n) for n = 1..71

Cf. A023149, A048891, A171430, A171431, A171432.

Prime@ Select[Range[10^5], Mod[Prime[#] - 7, #] == 0 &] (* Giovanni Resta, Feb 25 2020 *)

Missing a(1)-a(4), a(16) and beyond from Giovanni Resta, Feb 23 2020

cp's OEIS Frontend

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

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Extensions