A067457 Smallest n-th power starting with n.
1, 25, 343, 4096, 59049, 64, 78125, 815730721, 922190162669056, 1024, 116490258898219, 129746337890625, 13060694016, 147653612273582215982104576, 15407021574586368, 16400152899115243850138976256, 17179869184
Offset: 1
Links
- Jon E. Schoenfield, Table of n, a(n) for n = 1..302
Crossrefs
Programs
-
Mathematica
Do[k = Floor[ Log[ 10, n] + 1]; While[ FromDigits[ Take[ IntegerDigits [k^n], Floor[ Log[ 10, n] + 1]]] != n, k++ ]; Print[k^n], {n, 1, 20} ]
Extensions
Edited and extended by Robert G. Wilson v, Feb 08 2002