login
A369894
a(n) = n * Sum_{p|n, p prime} tau(n/p) / p.
0
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, 27, 68, 1, 124, 1, 80, 28, 38, 24, 180, 1, 42, 32, 152, 1, 164, 1, 100, 87, 50, 1, 272, 14, 115, 40, 116, 1, 216, 32, 200, 44, 62, 1, 432, 1, 66, 111, 192, 36, 244, 1, 148
OFFSET
1,4
FORMULA
a(p^k) = k*p^(k-1), for prime p and k >= 1. - Wesley Ivan Hurt, Jun 26 2024
MATHEMATICA
Table[n*DivisorSum[n, DivisorSigma[0, n/#]/# &, PrimeQ[#] &], {n, 80}]
CROSSREFS
Sequence in context: A065045 A185088 A064947 * A059926 A306546 A138775
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Feb 04 2024
STATUS
approved