login
A308593
a(n) = Sum_{d|n} d^(n^2/d).
2
1, 5, 28, 513, 3126, 840242, 823544, 8606711809, 7625984905477, 1221277338483250, 285311670612, 89215914432866222355906, 302875106592254, 316913110043605007120962336162, 608295209422788113565012727970423808, 680564733921105089459460296530789924865
OFFSET
1,2
LINKS
MATHEMATICA
Table[Sum[d^(n^2/d), {d, Divisors[n]}], {n, 1, 20}] (* Vaclav Kotesovec, Jun 09 2019 *)
PROG
(PARI) {a(n) = sumdiv(n, d, d^(n^2/d))}
CROSSREFS
Diagonal of A308509.
Sequence in context: A354897 A345632 A024068 * A249784 A359649 A346312
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Jun 09 2019
STATUS
approved