Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #8 Jun 09 2018 06:08:54
%S 0,0,1,0,1,1,1,0,2,1,1,1,2,1,2,0,1,2,1,1,2,1,1,1,2,2,3,1,2,2,1,0,2,1,
%T 2,2,2,1,3,1,1,2,2,1,3,1,2,1,2,2,2,2,1,3,2,1,2,2,1,2,2,1,3,0,3,2,1,1,
%U 2,2,2,2,2,2,3,1,2,3,2,1,4,1,1,2,2,2,3
%N If n = Product_i prime(x_i)^k_i, then a(n) = Sum_i k_i * omega(x_i), where omega = A001221 is number of distinct prime factors.
%F Totally additive with a(prime(n)) = omega(n).
%F a(n) = A305053(n) + A001221(n). - _Michel Marcus_, Jun 09 2018
%t Table[If[n==1,0,Total@Cases[FactorInteger[n],{p_,k_}:>k*PrimeNu[PrimePi[p]]]],{n,100}]
%o (PARI) a(n) = {my(f=factor(n)); sum(k=1, #f~, f[k,2]*omega(primepi(f[k,1])));} \\ _Michel Marcus_, Jun 09 2018
%Y Cf. A001221, A003963, A056239, A076078, A112798, A286520, A290103, A302242, A304714, A304716, A305052, A305053.
%K nonn
%O 1,9
%A _Gus Wiseman_, May 24 2018