Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #10 Sep 08 2024 19:25:18
%S 1,2,3,4,5,6,7,8,9,16,25,36,49,64,81,125,216,343,512,729,1296,2401,
%T 4096,6561,16807,32768,59049,117649,262144,531441,2097152,4782969,
%U 16777216,43046721,134217728,387420489,1073741824,3486784401,31381059609,282429536481,2541865828329,22876792454961,205891132094649,1853020188851841,16677181699666569,150094635296999121,1350851717672992089,12157665459056928801,109418989131512359209
%N Numbers with k decimal digits that are also k-th powers.
%t 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 *)
%o (PARI) default(realprecision,50)
%o for( n=1,50, for( j=ceil((10^(n-1))^(1/n)),floor((10^n-1)^(1/n)),print1(j^n, ", ")))
%K base,fini,full,nonn
%O 1,2
%A _M. F. Hasler_, Nov 16 2007