AUTHOR
_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Jun 14 2002
_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Jun 14 2002
Smallest k such that A069624(k) = n.
1, 4, 9, 27, 81, 256, 1024, 4096, 16384, 78125, 390625, 1953125, 10077696, 60466176, 362797056, 2176782336, 13841287201, 96889010407, 678223072849, 4747561509943, 35184372088832, 281474976710656, 2251799813685248
1,2
All of entries shown are perfect powers.
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
Cf. A069624.
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 14 2002
approved