Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #6 Jun 26 2024 15:05:42
%S 0,1,1,4,1,10,1,12,6,14,1,36,1,18,16,32,1,51,1,52,20,26,1,104,10,30,
%T 27,68,1,124,1,80,28,38,24,180,1,42,32,152,1,164,1,100,87,50,1,272,14,
%U 115,40,116,1,216,32,200,44,62,1,432,1,66,111,192,36,244,1,148
%N a(n) = n * Sum_{p|n, p prime} tau(n/p) / p.
%F a(p^k) = k*p^(k-1), for prime p and k >= 1. - _Wesley Ivan Hurt_, Jun 26 2024
%t Table[n*DivisorSum[n, DivisorSigma[0, n/#]/# &, PrimeQ[#] &], {n, 80}]
%Y Cf. A000005 (tau), A062799, A319131, A369893.
%K nonn,easy
%O 1,4
%A _Wesley Ivan Hurt_, Feb 04 2024