A308593 a(n) = Sum_{d|n} d^(n^2/d).
1, 5, 28, 513, 3126, 840242, 823544, 8606711809, 7625984905477, 1221277338483250, 285311670612, 89215914432866222355906, 302875106592254, 316913110043605007120962336162, 608295209422788113565012727970423808, 680564733921105089459460296530789924865
Offset: 1
Keywords
Links
- Seiichi Manyama, Table of n, a(n) for n = 1..80
Programs
-
Mathematica
Table[Sum[d^(n^2/d), {d, Divisors[n]}], {n,1,20}] (* Vaclav Kotesovec, Jun 09 2019 *) -
PARI
{a(n) = sumdiv(n, d, d^(n^2/d))}