|
|
A071913
|
|
Smallest k such that A069624(k) = n.
|
|
1
|
|
|
1, 4, 9, 27, 81, 256, 1024, 4096, 16384, 78125, 390625, 1953125, 10077696, 60466176, 362797056, 2176782336, 13841287201, 96889010407, 678223072849, 4747561509943, 35184372088832, 281474976710656, 2251799813685248
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
All of entries shown are perfect powers.
|
|
LINKS
|
|
|
MATHEMATICA
|
a = Table[0, {15}]; Do[ b = Length[ Union[ Table[ Floor[n^(1/k)], {k, 2, 20}]]]; If[ a[[b]] == 0, a[[b]] = n], {n, 1, 10^6}]; a
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|