%I A025476
%S A025476 2,2,3,2,5,3,2,7,2,3,11,5,2,13,3,2,17,7,19,2,23,5,3,29,31,2,11,37,41,43,
%T A025476 2,3,13,47,7,53,5,59,61,2,67,17,71,73,79,3,19,83,89,2,97,101,103,107,109,
%U A025476 23,113,11,5,127,2,7,131,137,139,3,149,151,29,157,163,167,13,31,173,179
%N A025476 Prime root of n-th nontrivial prime power (A025475).
%t A025476 Transpose[ Flatten[ FactorInteger[ Select[ Range[2, 30000], !PrimeQ[ 
               # ] && Mod[ #, # - EulerPhi[ # ]] == 0 &]], 1]][[1]] (from Robert 
               G. Wilson v)
%Y A025476 Sequence in context: A157987 A025478 A084371 this_sequence A078773 A151663 
               A162753
%Y A025476 Adjacent sequences: A025473 A025474 A025475 this_sequence A025477 A025478 
               A025479
%K A025476 easy,nonn
%O A025476 1,1
%A A025476 David W. Wilson (davidwwilson(AT)comcast.net)