login
A171434
Primes that are congruent to 7 mod n, where n is the index of the prime.
3
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,1
LINKS
MATHEMATICA
Prime@ Select[Range[10^5], Mod[Prime[#] - 7, #] == 0 &] (* Giovanni Resta, Feb 25 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Missing a(1)-a(4), a(16) and beyond from Giovanni Resta, Feb 23 2020
STATUS
approved