A294608 a(n) = Sum_{d|n} d^(d + 1 + n/d).

1, 17, 244, 4129, 78126, 1680410, 40353608, 1073758337, 31381061797, 1000000390882, 34522712143932, 1283918474699170, 51185893014090758, 2177953338091847410, 98526125335695332184, 4722366482878235412481, 239072435685151324847154

Offset: 1

Author

Seiichi Manyama, Nov 04 2017

Keywords

• nonn

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..384

Crossrefs

Cf. A294606.

Programs

Mathematica

a[n_] := DivisorSum[n, #^(# + 1 + n/#) &]; Array[a, 17] (* Amiram Eldar, Oct 04 2023 *)

PARI

{a(n) = sumdiv(n, d, d^(d+1+n/d))}