|
%I #6 Mar 20 2015 18:53:04
%S 5,529,512,50625,59049,531441,52523350144,5764801,512,59049,
%T 584318301411328,531441,549755813888,53148384174432398229504,
%U 51185893014090757,5070942774902496337890625,505447028499293771
%N Smallest n-th power starting with 5.
%C Terms from _Robert G. Wilson v_.
%t 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 Cf. A067442, A067443, A067444, A067445.
%K base,easy,nonn
%O 1,1
%A _Amarnath Murthy_, Feb 05 2002
|
