login
a(n) = n * Sum_{p|n, p prime} Omega(n/p) / p.
0

%I #6 Jun 26 2024 15:20:31

%S 0,0,0,2,0,5,0,8,3,7,0,20,0,9,8,24,0,30,0,28,10,13,0,60,5,15,18,36,0,

%T 62,0,64,14,19,12,90,0,21,16,84,0,82,0,52,48,25,0,160,7,70,20,60,0,

%U 135,16,108,22,31,0,186,0,33,60,160,18,122,0,76,26,118,0,240,0

%N a(n) = n * Sum_{p|n, p prime} Omega(n/p) / p.

%F a(p^k) = (k-1)*p^(k-1), for p prime and k >= 1. - _Wesley Ivan Hurt_, Jun 26 2024

%t Table[n*DivisorSum[n, PrimeOmega[n/#]/# &, PrimeQ[#] &], {n, 100}]

%Y Cf. A001222 (Omega), A369741, A369908.

%K nonn,easy

%O 1,4

%A _Wesley Ivan Hurt_, Feb 05 2024