|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|