cp's OEIS Frontend

A067446 Smallest n-th power starting with 5.

%I A067446 #10 Apr 04 2025 22:30:56
%S A067446 5,529,512,50625,59049,531441,52523350144,5764801,512,59049,
%T A067446 584318301411328,531441,549755813888,53148384174432398229504,
%U A067446 51185893014090757,5070942774902496337890625,505447028499293771
%N A067446 Smallest n-th power starting with 5.
%C A067446 Terms from _Robert G. Wilson v_.
%H A067446 Robert Israel, <a href="/A067446/b067446.txt">Table of n, a(n) for n = 1..534</a>
%p A067446 f:= proc(n) local x, y;
%p A067446   for x from 2 do
%p A067446     y:= x^n;
%p A067446     if floor(y/10^ilog10(y)) = 5 then return x^n fi
%p A067446   od
%p A067446 end proc:
%p A067446 map(f, [$1..50]); # _Robert Israel_, Apr 02 2025
%t A067446 a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 5, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* _Robert G. Wilson v_ *)
%Y A067446 Cf. A067442, A067443, A067444, A067445.
%K A067446 base,easy,nonn
%O A067446 1,1
%A A067446 _Amarnath Murthy_, Feb 05 2002