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 A067445 #13 Apr 04 2025 22:30:48
%S A067445 4,4,4096,4096,4084101,4096,4782969,43046721,40353607,41426511213649,
%T A067445 4194304,4096,4503599627370496,4782969,470184984576,43046721,
%U A067445 456487940826035155404146917,426878854210636742656,4394336169668803158610484050361,4064231406647572522401601
%N A067445 Smallest n-th power starting with 4.
%C A067445 Terms from _Robert G. Wilson v_.
%H A067445 Robert Israel, <a href="/A067445/b067445.txt">Table of n, a(n) for n = 1..607</a>
%p A067445 f:= proc(n) local x, y;
%p A067445 for x from 2 do
%p A067445 y:= x^n;
%p A067445 if floor(y/10^ilog10(y)) = 4 then return x^n fi
%p A067445 od
%p A067445 end proc:
%p A067445 map(f, [$1..50]); # _Robert Israel_, Apr 02 2025
%t A067445 a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 4, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* _Robert G. Wilson v_ *)
%Y A067445 Cf. A067442, A067443, A067444.
%K A067445 base,easy,nonn
%O A067445 1,1
%A A067445 _Amarnath Murthy_, Feb 05 2002
%E A067445 Moved Mathematica program to proper field -- _Harvey P. Dale_, Mar 31 2012