login
A348144
a(n) = Sum_{d|n} n^(n^2/d).
0
1, 20, 19710, 4295033088, 298023223876956250, 10314424798490637108305446464, 256923577521058878088611477224235622145150, 6277101735386680763835789423286894578616620063532571951104, 196627050475552913618075908526912116283103450944214825077052418578026469007467
OFFSET
1,2
MATHEMATICA
Table[Sum[n^(n^2/i)*(1 - Ceiling[n/i] + Floor[n/i]), {i, n}], {n, 10}]
PROG
(PARI) a(n) = sumdiv(n, d, n^(n^2/d)); \\ Michel Marcus, Oct 03 2021
CROSSREFS
Sequence in context: A172661 A172758 A146497 * A060618 A369948 A064487
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Oct 02 2021
STATUS
approved