|
| |
|
|
A067457
|
|
Smallest n-th power starting with n.
|
|
1
| |
|
|
1, 25, 343, 4096, 59049, 64, 78125, 815730721, 922190162669056, 1024, 116490258898219, 129746337890625, 13060694016, 147653612273582215982104576, 15407021574586368, 16400152899115243850138976256, 17179869184
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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} ]
|
|
|
CROSSREFS
| Cf. A067442, A067443, A067444, A067445, A067446, A067447, A067448, A067449, A067450, A068001.
Sequence in context: A094730 A136736 A119785 * A055333 A022653 A125460
Adjacent sequences: A067454 A067455 A067456 * A067458 A067459 A067460
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Feb 07 2002
|
|
|
EXTENSIONS
| Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 08 2002
|
| |
|
|
