%I A025473
%S A025473 1,2,3,2,5,7,2,3,11,13,2,17,19,23,5,3,29,31,2,37,41,43,47,7,53,59,61,2,
%T A025473 67,71,73,79,3,83,89,97,101,103,107,109,113,11,5,127,2,131,137,139,149,
%U A025473 151,157,163,167,13,173,179,181,191,193,197,199,211,223,227,229,233,239
%N A025473 a(1) = 1; for n > 1, a(n) = prime root of n-th prime power (A000961).
%C A025473 This sequence is related to the cyclotomic sequences A013595 and A020500, 
               leading to the procedure used in the Mathematica program. - Roger 
               L. Bagula (rlbagulatftn(AT)yahoo.com), Jul 08 2008
%D A025473 Paul J. McCarthy, Algebraic Extensions of Fields,Dover books, 1976, page 
               s 40, 69
%D A025473 Weisstein, Eric W. "Cyclotomic Polynomial." http://mathworld.wolfram.com/
               CyclotomicPolynomial.html
%H A025473 David Wasserman, <a href="b025473.txt">Table of n, a(n) for n=1..1000</
               a>
%F A025473 a(n) = A006530(A000961(n)) = A020639(A000961(n)). - David Wasserman (wasserma(AT)spawar.navy.mil), 
               Feb 16 2006
%t A025473 a = Join[{1}, Flatten[Table[If[PrimeQ[Apply[Plus, CoefficientList[Cyclotomic[n, 
               x], x]]], Apply[Plus, CoefficientList[Cyclotomic[n, x], x]], {}], 
               {n, 1, 1000}]]] - Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jul 
               08 2008
%Y A025473 Cf. A013595 and A020500.
%Y A025473 Sequence in context: A135875 A097448 A133684 this_sequence A092556 A092550 
               A058977
%Y A025473 Adjacent sequences: A025470 A025471 A025472 this_sequence A025474 A025475 
               A025476
%K A025473 easy,nonn,nice
%O A025473 1,2
%A A025473 David W. Wilson (davidwwilson(AT)comcast.net)
%E A025473 Corrected offset David Wasserman (dwasserm(AT)earthlink.net), Dec 22 
               2008