%I A052410
%S A052410 1,2,3,2,5,6,7,2,3,10,11,12,13,14,15,2,17,18,19,20,21,22,23,24,5,26,3,
%T A052410 28,29,30,31,2,33,34,35,6,37,38,39,40,41,42,43,44,45,46,47,48,7,50,51,
%U A052410 52,53,54,55,56,57,58,59,60,61,62,63,2,65,66,67,68,69,70,71,72,73,74
%N A052410 a(n) = smallest integer root k for which a representation of the form 
               n = k^m exists (for some m).
%C A052410 Value of a in a^p=n, where p is the largest power given by A052409.
%C A052410 For n>1: n is a perfect power iff a(n)<>n. - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), 
               Oct 13 2002
%H A052410 Daniel Forgues, <a href="b052410.txt">Table of n, a(n) for n=1..100000</
               a>
%H A052410 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Power.html">Power</a>
%H A052410 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               PerfectPower.html">Perfect Power</a>
%t A052410 Table[If[n==1, 1, n^(1/(GCD@@(Last/@FactorInteger[n])))], {n, 100}]
%Y A052410 Cf. A052409.
%Y A052410 a(A001597(k))=A025478(k).
%Y A052410 Sequence in context: A053166 A166140 A019555 this_sequence A072775 A090078 
               A080979
%Y A052410 Adjacent sequences: A052407 A052408 A052409 this_sequence A052411 A052412 
               A052413
%K A052410 nonn
%O A052410 1,2
%A A052410 Eric Weisstein (eric(AT)weisstein.com)
%E A052410 Definition edited (in a complementary form to A052409) by Daniel Forgues, 
               Mar 14 2009
%E A052410 Corrected by Charles R Greathouse IV (charles.greathouse(AT)case.edu), 
               Sep 02 2009