|
%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
|
