A369739 a(n) = Sum_{p|n, p prime} p^tau(n/p).

0, 2, 3, 4, 5, 13, 7, 8, 9, 29, 11, 43, 13, 53, 34, 16, 17, 89, 19, 141, 58, 125, 23, 145, 25, 173, 27, 359, 29, 722, 31, 32, 130, 293, 74, 793, 37, 365, 178, 689, 41, 2498, 43, 1347, 206, 533, 47, 499, 49, 633, 298, 2213, 53, 745, 146, 2465, 370, 845, 59, 16610, 61, 965, 424, 64, 194

Offset

1,2

Links

Table of n, a(n) for n=1..65.

Formula

a(p^k) = p^k, for p prime and k >= 1. - Wesley Ivan Hurt, Jun 26 2024

Mathematica

Table[DivisorSum[n, #^DivisorSigma[0, n/#] &, PrimeQ[#] &], {n, 60}]

Crossrefs

Cf. A000005 (tau), A319131, A345270.

Sequence in context: A065635 A325693 A367140 * A101546 A026471 A039039

Adjacent sequences: A369736 A369737 A369738 * A369740 A369741 A369742

Keyword

nonn,easy

Author

Wesley Ivan Hurt, Jan 30 2024

Status

approved