This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A177005 #9 May 10 2020 19:30:27
%S A177005 1,4,169,391,1546,16761,18278,20201,21775,31120,126882,178465,9502273,
%T A177005 10553442,24677776,56923413,422766345,1759518201,4152696703,
%U A177005 6800832991,14421293461,106195400697,667339219893,915091102299
%N A177005 Numbers k such that k^k = k (mod prime(k)).
%C A177005 20201 is a prime term of this sequence. What is the next such prime?
%C A177005 The next prime term is a(20) = 6800832991. - _Giovanni Resta_, May 10 2020
%t A177005 Do[If[PowerMod[n, n, Prime[n]] == n, Print[n]], {n, 350000000}]
%o A177005 (PARI) is(k) = Mod(k, prime(k))^k == k; \\ _Jinyuan Wang_, May 09 2020
%Y A177005 Cf. A117131, A225944.
%K A177005 nonn,more
%O A177005 1,2
%A A177005 _Farideh Firoozbakht_, May 02 2010
%E A177005 a(17) from _Jinyuan Wang_, May 09 2020
%E A177005 a(18)-a(24) from _Giovanni Resta_, May 10 2020