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 A171267 #8 May 08 2023 15:03:31
%S A171267 5,29,193,557,751,3307,4999,7499,16693,20807,31249,59999,60443,79193,
%T A171267 812501,918751,5422943,46295807,55781249,74218751,78281249,89218751,
%U A171267 89999999,282922943,316295807,674218751,1583704193,3824218751,3958704193,4092077057,6342077057,8324218751,31666295807,47779577057,64478795807,66666295807,75000000001
%N A171267 Primes p such that p^s ends with p, where s is sum of the digits of p.
%H A171267 Max Alekseyev, <a href="/A171267/b171267.txt">Table of n, a(n) for n = 1..107</a>
%e A171267 1583704193^(1+5+8+3+7+0+4+1+9+3)=1583704193 (mod 10^10) so 1583704193 is
%e A171267 in the sequence.
%e A171267 It is interesting that each of the four numbers 751^(7+5+1), 751^(7*5*1),
%e A171267 751^pi(751) and 751^prime(751) ends with 751.
%t A171267 Do[n=Prime[m];a=IntegerDigits[n];If[PowerMod[n,Apply[Plus,a],10^Length[a]]
%t A171267 ==n,Print[n]],{m,100000000}]
%Y A171267 Cf. A171268, A153427, A153428.
%K A171267 base,nonn
%O A171267 1,1
%A A171267 _Farideh Firoozbakht_, Apr 28 2010
%E A171267 Terms a(28) onward from _Max Alekseyev_, Aug 18 2013