OFFSET
1,1
EXAMPLE
a(8) = 202^3 = 8242408; there is no smaller perfect power that begins and ends with digit 8.
PROG
(Magma) PP:=[1] cat [ n: n in [2..9000000] | IsPower(n) ]; firstlast:=function(x); for n:=1 to #PP do k:=Intseq(PP[n], 10); if #k gt 1 and k[1] eq x and k[ #k] eq x then return PP[n]; end if; end for; return -1; end function; [ firstlast(d): d in [1..9] ]; // Klaus Brockhaus, Apr 16 2007
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
J. M. Bergot, Apr 12 2007
EXTENSIONS
Edited, corrected and extended by Klaus Brockhaus, Apr 16 2007
STATUS
approved