%I #4 May 19 2021 23:49:52

%S 1,3,4,19,6,42,8,531,85,108,12,1786,14,206,234,66067,18,5955,20,8124,

%T 452,498,24,334074,631,692,19768,22174,30,27372,32,33620499,1104,1176,

%U 1238,1687315,38,1466,1538,2568636,42,74774,44,85698,91440,2142,48,255203578,2409

%N a(n) = Sum_{d|n} d^Omega(d).

%C If p is prime, a(n) = Sum_{d|p} d^Omega(d) = 1^0 + p^1 = p + 1.

%e a(8) = Sum_{d|8} d^Omega(d) = 1^0 + 2^1 + 4^2 + 8^3 = 531.

%t Table[Sum[k^PrimeOmega[k] (1 - Ceiling[n/k] + Floor[n/k]), {k, n}], {n, 80}]

%Y Cf. A001222 (Omega).

%K nonn

%O 1,2

%A _Wesley Ivan Hurt_, May 19 2021