A171431 Primes that are congruent to 4 mod n, where n is the index of the prime.
2, 379, 389, 9559969, 9559999, 9560119, 9560149, 514274011, 3779851261, 204475055129, 81744303090431, 241849345578327127, 241849345578334537, 241849345578337111, 241849345578359263, 241849345578372913, 241849345578373303, 97199410027250043229, 97199410027250048629, 97199410027250052679
Offset: 1
Keywords
Programs
-
Mathematica
Prime@ Select[Range[10^6], Mod[Prime[#] - 4, #] == 0 &] (* Giovanni Resta, Feb 25 2020 *)
Extensions
Missing a(1) and a(8)-a(20) from Giovanni Resta, Feb 23 2020