A132722 Numbers with k decimal digits that are also k-th powers.

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

Links

Table of n, a(n) for n=1..49.

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

Adjacent sequences: A132719 A132720 A132721 * A132723 A132724 A132725

Keyword

base,fini,full,nonn

Author

M. F. Hasler, Nov 16 2007

Status

approved