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 A052211 #30 Aug 27 2023 16:39:08
%S A052211 0,1,10,100,1000,10000,46416,100000,464159,1000000,2154435,4641589,
%T A052211 10000000,21544347,100000000,1000000000,10000000000,100000000000,
%U A052211 1000000000000,2154434690032,4641588833613,10000000000000,21544346900319,46415888336128
%N A052211 Numbers k such that k^4 starts with k itself (in base 10).
%H A052211 Andrew Howroyd, <a href="/A052211/b052211.txt">Table of n, a(n) for n = 1..500</a>
%e A052211 46416^4 starts with 46416.
%t A052211 Join[{0}, Sort[ Table[ 10^i,{i,0,22} ]~Join~Select[ Table[ Ceiling[ 10.^(1/3)*10^i ],{i,0,22} ], Take[ IntegerDigits[ #^4 ],Length[ IntegerDigits[ # ] ] ]==IntegerDigits[ # ]& ]~Join~Select[ Table[ Ceiling[ 10.^(2/3)*10^i ],{i,0,22} ],Take[ IntegerDigits[ #^4 ],Length[ IntegerDigits[ # ] ] ]==IntegerDigits[ # ]& ] ] ]
%o A052211 (PARI) r=41; print1(1, ", "); e=4; for(n=2, r, p=round((10^(1/(e-1)))^n); f=p^e; b=10^(#Str(f)-#Str(p)); if((f-lift(Mod(f, b)))/b==p, print1(p, ", "))); \\ _Arkadiusz Wesolowski_, Dec 10 2013
%Y A052211 Cf. A052210, A233451, A233452, A233453, A233454, A233455, A233456.
%K A052211 nonn,base,easy
%O A052211 1,3
%A A052211 _Erich Friedman_, Jan 29 2000
%E A052211 0 inserted by _Juhani Heino_, Aug 31 2015