OFFSET
1,3
EXAMPLE
2^8 = 256 begins with 2, so 2 is in the sequence.
MATHEMATICA
Join[{0}, Select[Range@ 1000000, Take[IntegerDigits[#^8], IntegerLength@ #] == IntegerDigits@ # &]] (* Michael De Vlieger, Aug 31 2015 *)
PROG
(PARI) r=88; print1(1, ", "); e=8; for(n=2, r, p=round((10^(1/(e-1)))^n); f=p^e; b=10^(#Str(f)-#Str(p)); if((f-lift(Mod(f, b)))/b==p, print1(p, ", ")));
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Arkadiusz Wesolowski, Dec 10 2013
EXTENSIONS
0 inserted by Juhani Heino, Aug 31 2015
STATUS
approved