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 A067450 #11 Apr 04 2025 22:31:54 %S A067450 9,9,9261,923521,9765625,9474296896,94931877133,9682651996416, %T A067450 922190162669056,9765625,952809757913927,95428956661682176, %U A067450 96889010407,9012061295995008299689,931322574615478515625 %N A067450 Smallest n-th power starting with 9. %C A067450 Terms from _Robert G. Wilson v_. %H A067450 Robert Israel, <a href="/A067450/b067450.txt">Table of n, a(n) for n = 1..533</a> %p A067450 f:= proc(n) local x, y; %p A067450 for x from 2 do %p A067450 y:= x^n; %p A067450 if floor(y/10^ilog10(y)) = 9 then return x^n fi %p A067450 od %p A067450 end proc: %p A067450 map(f, [$1..50]); # _Robert Israel_, Apr 02 2025 %t A067450 a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 9, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* _Robert G. Wilson v_ *) %Y A067450 Cf. A067442, A067443, A067444, A067445, A067446, A067447, A067448, A067449. %K A067450 base,easy,nonn %O A067450 1,1 %A A067450 _Amarnath Murthy_, Feb 05 2002