|
%I #16 Apr 04 2024 12:02:07
%S 0,1,282475249,3486784401,41426511213649,59049,60466176,
%T 79792266297612001,819628286980801,9765625,1024,1125899906842624,
%U 12157665459056928801,137858491849,141167095653376,1531578985264449,16679880978201
%N Smallest tenth power that begins with n.
%H Seiichi Manyama, <a href="/A018881/b018881.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A018882(n)^10. - _Seiichi Manyama_, Jan 31 2017
%t Join[{0},Module[{nn=150,tp},tp=Range[nn]^10;Table[SelectFirst[tp,Take[ IntegerDigits[#], IntegerLength[ n]]==IntegerDigits[n]&],{n,16}]]//Quiet] (* _Harvey P. Dale_, Apr 04 2024 *)
%Y Cf. A018882.
%K nonn,base
%O 0,3
%A _David W. Wilson_
%E Added initial 0. - _Seiichi Manyama_, Jan 31 2017
|
