A233456 Numbers k such that k^10 starts with k itself (in base 10).
0, 1, 6, 10, 13, 36, 60, 100, 1000, 10000, 100000, 129155, 278256, 1000000, 10000000, 21544347, 100000000, 1000000000, 10000000000, 59948425032, 100000000000, 599484250319, 1000000000000, 10000000000000, 100000000000000, 464158883361278, 1000000000000000
Offset: 1
Examples
6^10 = 60466176 begins with 6, so 6 is in the sequence.
Programs
-
Mathematica
kmax=10^6; Select[Range[0,kmax],FromDigits[Drop[IntegerDigits[#^10],-(IntegerLength[#^10]-IntegerLength[#])]]==# &] (* Stefano Spezia, Aug 27 2023 *)
-
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, ", ")));
Extensions
0 inserted by Juhani Heino, Aug 31 2015