%I A052126
%S A052126 1,1,1,2,1,2,1,4,3,2,1,4,1,2,3,8,1,6,1,4,3,2,1,8,5,2,9,4,1,6,1,16,3,2,
%T A052126 5,12,1,2,3,8,1,6,1,4,9,2,1,16,7,10,3,4,1,18,5,8,3,2,1,12,1,2,9,32,5,6,
%U A052126 1,4,3,10,1,24,1,2,15,4,7,6,1,16,27,2,1,12,5,2,3,8,1,18,7,4,3,2,5,32,1
%N A052126 a(1) = 1; for n>1, a(n)=n/(largest prime dividing n).
%H A052126 R. Zumkeller, <a href="b052126.txt">Table of n, a(n) for n = 1..10000</
               a>
%F A052126 n/A006530(n).
%F A052126 a(n) = A130065(n)/A020639(n). - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), 
               May 05 2007
%e A052126 a(15) = 15/(largest prime dividing 15) = 15/5=3.
%p A052126 with(numtheory): a:=proc(n) local u: if n=1 then 1 else u:=factorset(n): 
               n/max(seq(u[j],j=1..nops(u))) end if end proc: seq(a(n),n=1..100); 
               - Emeric Deutsch (deutsch(AT)duke.poly.edu), Mar 30 2008
%Y A052126 Cf. A006530, A032742.
%Y A052126 Sequence in context: A164879 A009195 A072994 this_sequence A094521 A159272 
               A098372
%Y A052126 Adjacent sequences: A052123 A052124 A052125 this_sequence A052127 A052128 
               A052129
%K A052126 nonn
%O A052126 1,4
%A A052126 James A. Sellers (sellersj(AT)math.psu.edu), Jan 21 2000