login
A132722
Numbers with k decimal digits that are also k-th powers.
0
1, 2, 3, 4, 5, 6, 7, 8, 9, 16, 25, 36, 49, 64, 81, 125, 216, 343, 512, 729, 1296, 2401, 4096, 6561, 16807, 32768, 59049, 117649, 262144, 531441, 2097152, 4782969, 16777216, 43046721, 134217728, 387420489, 1073741824, 3486784401, 31381059609, 282429536481, 2541865828329, 22876792454961, 205891132094649, 1853020188851841, 16677181699666569, 150094635296999121, 1350851717672992089, 12157665459056928801, 109418989131512359209
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
Sequence in context: A079239 A079041 A133059 * A334828 A048407 A322260
KEYWORD
base,fini,full,nonn
AUTHOR
M. F. Hasler, Nov 16 2007
STATUS
approved