A171434 Primes that are congruent to 7 mod n, where n is the index of the prime.
2, 3, 7, 13, 61, 151, 397, 1153, 64567, 64577, 480967, 480979, 9559867, 9559897, 9560167, 189961657, 189961819, 189962593, 189963043, 189964321, 189969379, 514272779, 514275401, 1394193607, 1394194727, 1394198807, 10246936003, 75370121191, 75370121767, 75370121839
Offset: 1
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..71
Programs
-
Mathematica
Prime@ Select[Range[10^5], Mod[Prime[#] - 7, #] == 0 &] (* Giovanni Resta, Feb 25 2020 *)
Extensions
Missing a(1)-a(4), a(16) and beyond from Giovanni Resta, Feb 23 2020