|
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| All of entries shown are perfect powers.
|
|
|
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
| Cf. A069624.
Sequence in context: A034527 A111962 A198095 * A007872 A087726 A101973
Adjacent sequences: A071910 A071911 A071912 * A071914 A071915 A071916
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 14 2002
|
| |
|
|
