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