%I #14 Feb 25 2020 11:22:39
%S 2,3,7,17,19,127,131,139,373,383,8419,64553,175211,3523901,3524713,
%T 70115789,514273231,514275283,1394194363,1394197423,1394197543,
%U 1394198683,1394198863,1394199083,1394199263,1394199283,10246935823,204475053103,4086199302923,11091501631097
%N Primes that are congruent to 3 mod n, where n is the index of the prime.
%H Giovanni Resta, <a href="/A171430/b171430.txt">Table of n, a(n) for n = 1..46</a>
%e Mod(7,4)=3, Mod(17,7)=3.
%t Prime@ Select[Range[10^5], Mod[Prime[#] - 3, #] == 0 &] (* _Giovanni Resta_, Feb 25 2020 *)
%Y Cf. A023145, A048891.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Dec 08 2009
%E a(14) from _Harvey P. Dale_, Oct 21 2016
%E Terms a(1)-a(2), a(17) and beyond from _Giovanni Resta_, Feb 23 2020