A023145 -id:A023145 - cp's OEIS frontend

A092045 Numbers n such that prime(n) == -3 (mod n).

1, 2, 25, 26, 68, 1054, 1058, 6472, 251723, 4124468, 69709727, 69709942, 465769817, 465769835, 1208198860, 8179002154, 8179002176, 8179002178, 145935689360, 145935689369, 145935689392, 145935689393

Offset: 1

Robert G. Wilson v, Feb 18 2004

nonn

Cf. A023145, A045924, A092044, A092046, A092047, 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 - 3, Print[n]], {n, 1, 10^9}]
Join[{1,2},Select[Range[5 10^6],Mod[Prime[#],#]==#-3&]] (* Harvey P. Dale, Mar 29 2023 *)

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

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

A171430 Primes that are congruent to 3 mod n, where n is the index of the prime.

Original entry on oeis.org

2, 3, 7, 17, 19, 127, 131, 139, 373, 383, 8419, 64553, 175211, 3523901, 3524713, 70115789, 514273231, 514275283, 1394194363, 1394197423, 1394197543, 1394198683, 1394198863, 1394199083, 1394199263, 1394199283, 10246935823, 204475053103, 4086199302923, 11091501631097

Offset: 1

Vladimir Joseph Stephan Orlovsky, Dec 08 2009

nonn

			Mod(7,4)=3, Mod(17,7)=3.

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

Cf. A023145, A048891.

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

a(14) from Harvey P. Dale, Oct 21 2016

Terms a(1)-a(2), a(17) and beyond from Giovanni Resta, Feb 23 2020

cp's OEIS Frontend

A092045 Numbers n such that prime(n) == -3 (mod n).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Extensions