OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
97^2 = 9409 is a term; 43^3 = 79507 is a term.
MATHEMATICA
Join[{1}, Select[Range[2, 10^5], First[IntegerDigits[#]]==Last[IntegerDigits[#]]&&ResourceFunction["PerfectPowerQ"][#]&]] (* James C. McMahon, Jan 11 2025 *)
PROG
(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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
J. M. Bergot, Apr 12 2007
EXTENSIONS
Edited, corrected and extended by Klaus Brockhaus, Apr 16 2007
STATUS
approved