|
|
A067445
|
|
Smallest n-th power starting with 4.
|
|
6
|
|
|
4, 4, 4096, 4096, 4084101, 4096, 4782969, 43046721, 40353607, 41426511213649, 4194304, 4096, 4503599627370496, 4782969, 470184984576, 43046721, 456487940826035155404146917, 426878854210636742656, 4394336169668803158610484050361, 4064231406647572522401601
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 4, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* Robert G. Wilson v *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Moved Mathematica program to proper field -- Harvey P. Dale, Mar 31 2012
|
|
STATUS
|
approved
|
|
|
|