%I #2 Mar 30 2012 17:30:44
%S 1,4,9,27,81,256,1024,4096,16384,78125,390625,1953125,10077696,
%T 60466176,362797056,2176782336,13841287201,96889010407,678223072849,
%U 4747561509943,35184372088832,281474976710656,2251799813685248
%N Smallest k such that A069624(k) = n.
%C All of entries shown are perfect powers.
%t 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
%Y Cf. A069624.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jun 14 2002
|