%I #9 Jan 31 2024 08:02:52
%S 0,0,0,2,0,5,0,4,3,7,0,10,0,9,8,6,0,10,0,14,10,13,0,15,5,15,6,18,0,20,
%T 0,8,14,19,12,15,0,21,16,21,0,24,0,26,16,25,0,20,7,14,20,30,0,15,16,
%U 27,22,31,0,30,0,33,20,10,18,32,0,38,26,28,0,20,0,39,16
%N a(n) = Sum_{p|n, p prime} p * Omega(n/p).
%t Table[DivisorSum[n, #*PrimeOmega[n/#] &, PrimeQ[#] &], {n, 100}]
%Y Cf. A001222 (Omega), A329347, A369741.
%K nonn,easy
%O 1,4
%A _Wesley Ivan Hurt_, Jan 30 2024
|