A171432 Primes that are congruent to 5 mod n, where n is the index of the prime.
2, 3, 5, 23, 53, 137, 480881, 480941, 480989, 481001, 481469, 3524099, 3524113, 3524281, 3524309, 70117933, 189961799, 189961907, 189961997, 189962177, 189962609, 189963941, 189963959, 189968729, 514274867, 514282961, 3779851157, 10246935913, 10246936309, 10246936463
Offset: 1
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..68
Programs
-
Mathematica
Prime@ Select[Range[10^5], Mod[Prime[#] - 5, #] == 0 &] (* Giovanni Resta, Feb 25 2020 *)
Extensions
a(13) from Harvey P. Dale, Sep 21 2014
Missing a(1)-a(3), a(17) and beyond from Giovanni Resta, Feb 23 2020