A023147 -id:A023147 - cp's OEIS frontend

A092047 Numbers n such that prime(n) == -5 (mod n).

1, 2, 4, 6, 8, 27, 28, 169, 183, 187, 188, 189, 438, 442, 1056, 1059, 40084, 40088, 40091, 40114, 40121, 100348, 251709, 4124588, 10553499, 10553853, 27066972, 179992914, 179992932, 179993012, 465769812, 1208198618, 1208198852

Offset: 1

Robert G. Wilson v, Feb 18 2004

nonn

Cf. A023147, A045924, A092044, A092045, A092046, A092048, A092049, A092050, A092051, A092052.

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == n - 5, Print[n]], {n, 1, 10^9}]

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

a(28)-a(34) from Robert G. Wilson v, Feb 22 2006

A171432 Primes that are congruent to 5 mod n, where n is the index of the prime.

Original entry on oeis.org

2, 3, 5, 23, 53, 137, 480881, 480941, 480989, 481001, 481469, 3524099, 3524113, 3524281, 3524309, 70117933, 189961799, 189961907, 189961997, 189962177, 189962609, 189963941, 189963959, 189968729, 514274867, 514282961, 3779851157, 10246935913, 10246936309, 10246936463

Offset: 1

Vladimir Joseph Stephan Orlovsky, Dec 08 2009

nonn

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

Cf. A023147, A048891, A171430, A171431.

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

a(13) from Harvey P. Dale, Sep 21 2014

Missing a(1)-a(3), a(17) and beyond from Giovanni Resta, Feb 23 2020

cp's OEIS Frontend

A092047 Numbers n such that prime(n) == -5 (mod n).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Extensions