%I #13 Oct 04 2023 03:51:54
%S 1,17,244,4129,78126,1680410,40353608,1073758337,31381061797,
%T 1000000390882,34522712143932,1283918474699170,51185893014090758,
%U 2177953338091847410,98526125335695332184,4722366482878235412481,239072435685151324847154
%N a(n) = Sum_{d|n} d^(d + 1 + n/d).
%H Seiichi Manyama, <a href="/A294608/b294608.txt">Table of n, a(n) for n = 1..384</a>
%t a[n_] := DivisorSum[n, #^(# + 1 + n/#) &]; Array[a, 17] (* _Amiram Eldar_, Oct 04 2023 *)
%o (PARI) {a(n) = sumdiv(n, d, d^(d+1+n/d))}
%Y Cf. A294606.
%K nonn
%O 1,2
%A _Seiichi Manyama_, Nov 04 2017
|