%I A063956
%S A063956 0,2,3,0,5,5,7,0,0,7,11,3,13,9,8,0,17,2,19,5,10,13,23,3,0,15,0,7,29,10,
%T A063956 31,0,14,19,12,0,37,21,16,5,41,12,43,11,5,25,47,3,0,2,20,13,53,2,16,7,
%U A063956 22,31,59,8,61,33,7,0,18,16,67,17,26,14,71,0,73,39,3,19,18,18,79,5,0
%N A063956 Sum of unitary prime divisors (A056169, A034444) of n.
%H A063956 Harry J. Smith, <a href="b063956.txt">Table of n, a(n) for n=1,...,1000</
               a>
%e A063956 Prime factors in 420 which have exponent=1 [i.e. unitary p-divisors] 
               are {5,7}, sum =12 so a(420)=12. Sum of all p-divisors are in A008472(420)=17.
%o A063956 (PARI) { for (n=1, 1000, f=factor(n)~; a=0; for (i=1, length(f), if (f[2, 
               i]==1, a+=f[1, i])); write("b063956.txt", n, " ", a) ) } [From Harry 
               J. Smith (hjsmithh(AT)sbcglobal.net), Sep 04 2009]
%Y A063956 A008472, A034444, A056169-A056172, A034387.
%Y A063956 Sequence in context: A057637 A167485 A140508 this_sequence A128214 A145105 
               A140700
%Y A063956 Adjacent sequences: A063953 A063954 A063955 this_sequence A063957 A063958 
               A063959
%K A063956 nonn
%O A063956 1,2
%A A063956 Labos E. (labos(AT)ana.sote.hu), Sep 04 2001