|
%I #6 Jun 26 2024 15:23:13
%S 0,0,0,2,0,5,0,4,3,7,0,16,0,9,8,8,0,21,0,24,10,13,0,32,5,15,9,32,0,62,
%T 0,16,14,19,12,60,0,21,16,48,0,82,0,48,39,25,0,64,7,45,20,56,0,63,16,
%U 64,22,31,0,154,0,33,51,32,18,122,0,72,26,118,0,120,0,39
%N a(n) = n * Sum_{p|n, p prime} omega(n/p) / p.
%F a(p^k) = p^(k-1), for p prime and k >= 1. - _Wesley Ivan Hurt_, Jun 26 2024
%t Table[n*DivisorSum[n, PrimeNu[n/#]/# &, PrimeQ[#] &], {n, 100}]
%Y Cf. A001221 (omega), A345354, A345355, A369744.
%K nonn,easy
%O 1,4
%A _Wesley Ivan Hurt_, Feb 05 2024
|
