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 A233456 #22 Aug 27 2023 16:40:02 %S A233456 0,1,6,10,13,36,60,100,1000,10000,100000,129155,278256,1000000, %T A233456 10000000,21544347,100000000,1000000000,10000000000,59948425032, %U A233456 100000000000,599484250319,1000000000000,10000000000000,100000000000000,464158883361278,1000000000000000 %N A233456 Numbers k such that k^10 starts with k itself (in base 10). %e A233456 6^10 = 60466176 begins with 6, so 6 is in the sequence. %t A233456 kmax=10^6; Select[Range[0,kmax],FromDigits[Drop[IntegerDigits[#^10],-(IntegerLength[#^10]-IntegerLength[#])]]==# &] (* _Stefano Spezia_, Aug 27 2023 *) %o A233456 (PARI) r=135; print1(1, ", "); e=10; 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, ", "))); %Y A233456 Cf. A052210, A052211, A233451, A233452, A233453, A233454, A233455. %K A233456 nonn,base,easy %O A233456 1,3 %A A233456 _Arkadiusz Wesolowski_, Dec 10 2013 %E A233456 0 inserted by _Juhani Heino_, Aug 31 2015