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

Author

Amarnath Murthy, Feb 07 2002

Keywords

• base
• easy
• nonn

Links

• Jon E. Schoenfield, Table of n, a(n) for n = 1..302

Crossrefs

Cf. A067442, A067443, A067444, A067445, A067446, A067447, A067448, A067449, A067450, A068001.

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