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 A128827 #12 Jan 11 2025 20:56:53
%S A128827 1,4,8,9,121,343,484,676,1331,1521,1681,4624,5625,9409,10201,11881,
%T A128827 12321,14161,14641,16641,17161,19321,19881,21952,40804,43264,44944,
%U A128827 47524,49284,50625,55225,60516,64516,65536,69696,79507,91809,94249
%N A128827 Perfect powers beginning and ending with the same digit.
%H A128827 Michael De Vlieger, <a href="/A128827/b128827.txt">Table of n, a(n) for n = 1..10000</a>
%e A128827 97^2 = 9409 is a term; 43^3 = 79507 is a term.
%t A128827 Join[{1},Select[Range[2,10^5],First[IntegerDigits[#]]==Last[IntegerDigits[#]]&&ResourceFunction["PerfectPowerQ"][#]&]] (* _James C. McMahon_, Jan 11 2025 *)
%o A128827 (Magma) PP:=[1] cat [ n: n in [2..100000] | IsPower(n) ]; [ n: n in PP | k[1] eq k[ #k] where k is Intseq(n, 10) ]; // _Klaus Brockhaus_, Apr 16 2007
%Y A128827 Cf. A001597 (perfect powers), A075786 (palindromic perfect powers), A129450.
%K A128827 nonn,base
%O A128827 1,2
%A A128827 _J. M. Bergot_, Apr 12 2007
%E A128827 Edited, corrected and extended by _Klaus Brockhaus_, Apr 16 2007