%I A125030
%S A125030 0,1,1,2,1,2,1,3,2,2,1,3,1,2,2,0,1,3,1,3,2,2,1,4,2,2,3,3,1,3,1,5,2,2,2,
%T A125030 4,1,2,2,4,1,3,1,3,3,2,1,1,2,3,2,3,1,4,2,4,2,2,1,4,1,2,3,0,2,3,1,3,2,3,
%U A125030 1,5,1,2,3,3,2,3,1,1,0,2,1,4,2,2,2,4,1,4,2,3,2,2,2,6,1,3,3,4,1,3,1,4,3
%N A125030 a(n) = sum of exponents in the prime-factorization of n which are noncomposite.
%H A125030 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a>
(listed in lieu of email address)
%e A125030 a(720) = 3, since the prime-factorization of 720 is 2^4 *3^2 *5^1 and
2 of the exponents in this factorization are non-composites (the
exponents 2 and 1, which when added is 3).
%t A125030 f[n_] := Plus @@ Select[Last /@ FactorInteger[n], # == 1 || PrimeQ[ #
] &];Table[f[n], {n, 110}] (*Chandler*)
%Y A125030 Cf. A125029.
%Y A125030 Sequence in context: A147810 A055181 A073811 this_sequence A116479 A122810
A086436
%Y A125030 Adjacent sequences: A125027 A125028 A125029 this_sequence A125031 A125032
A125033
%K A125030 nonn
%O A125030 1,4
%A A125030 Leroy Quet, Nov 16 2006
%E A125030 Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Nov 19 2006
|