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 A177192 #9 Feb 16 2025 08:33:12
%S A177192 5,193,499,557,1249,1693,4999,7057,31249,49999,52057,54193,56249,
%T A177192 79193,281249,829193,952057,4531249,4999999,8281249,8704193,17077057,
%U A177192 39954193,54577057,63281249,64954193,904577057,2154577057,3092077057,3958704193
%N A177192 Primes p such that p^p ends in p and p is not congruent to 1 (mod 10).
%C A177192 A proper subset of A052228.
%H A177192 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/AutomorphicNumber.html">Automorphic Number.</a>
%H A177192 <a href="/index/Ar#automorphic">Index entries for sequences related to automorphic numbers</a>
%H A177192 <a href="/index/Fi#final">Index entries for sequences related to final digits of numbers</a>
%t A177192 fQ[n_] := PowerMod[n, n, 10^Floor[Log[10, n] + 1]] == n; p = 2; lst = {}; While[p < 10^12, If[ Mod[p, 10] != 1 && fQ@p, AppendTo[lst, p]; Print@p]; p = NextPrime@p]; lst
%Y A177192 Cf. A003226, A007185, A016090, A052228.
%K A177192 base,nonn
%O A177192 1,1
%A A177192 _Jonathan Vos Post_ and _Robert G. Wilson v_, May 04 2010