A369740 a(n) = Sum_{p|n, p prime} p^sigma(n/p).

0, 2, 3, 8, 5, 43, 7, 128, 81, 189, 11, 6283, 13, 599, 1354, 32768, 17, 539633, 19, 340269, 8962, 5427, 23, 282784363, 15625, 18581, 1594323, 17600759, 29, 648338330, 31, 2147483648, 546082, 267057, 508274, 23426548268849, 37, 1055435, 4811530, 4428564089229, 41, 300565790978

Offset

1,2

Links

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

Mathematica

Table[DivisorSum[n, #^DivisorSigma[1, n/#] &, PrimeQ[#] &], {n, 50}]

Crossrefs

Cf. A000203 (sigma), A323599.

Sequence in context: A324502 A170826 A162537 * A109844 A128779 A112283

Adjacent sequences: A369737 A369738 A369739 * A369741 A369742 A369743

Keyword

nonn,easy

Author

Wesley Ivan Hurt, Jan 30 2024

Status

approved