OFFSET
1,2
MATHEMATICA
Join[{1}, Flatten[Table[(x/.Solve[10^(n-1)<x^n<10^n, x, Integers])^n, {n, 21}]]//Union] (* Harvey P. Dale, Aug 04 2018 *)
PROG
(PARI) default(realprecision, 50)
for( n=1, 50, for( j=ceil((10^(n-1))^(1/n)), floor((10^n-1)^(1/n)), print1(j^n, ", ")))
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
M. F. Hasler, Nov 16 2007
STATUS
approved