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

%I #11 Feb 25 2020 12:16:51

%S 2,3,7,13,61,151,397,1153,64567,64577,480967,480979,9559867,9559897,

%T 9560167,189961657,189961819,189962593,189963043,189964321,189969379,

%U 514272779,514275401,1394193607,1394194727,1394198807,10246936003,75370121191,75370121767,75370121839

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

%H Giovanni Resta, <a href="/A171434/b171434.txt">Table of n, a(n) for n = 1..71</a>

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

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

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Dec 09 2009

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