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

%I #12 Feb 25 2020 05:33:55

%S 2,3,5,23,53,137,480881,480941,480989,481001,481469,3524099,3524113,

%T 3524281,3524309,70117933,189961799,189961907,189961997,189962177,

%U 189962609,189963941,189963959,189968729,514274867,514282961,3779851157,10246935913,10246936309,10246936463

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

%H Giovanni Resta, <a href="/A171432/b171432.txt">Table of n, a(n) for n = 1..68</a>

%t Prime@ Select[Range[10^5], Mod[Prime[#] - 5, #] == 0 &] (* _Giovanni Resta_, Feb 25 2020 *)

%Y Cf. A023147, A048891, A171430, A171431.

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Dec 08 2009

%E a(13) from _Harvey P. Dale_, Sep 21 2014

%E Missing a(1)-a(3), a(17) and beyond from _Giovanni Resta_, Feb 23 2020