A348144 a(n) = Sum_{d|n} n^(n^2/d).

1, 20, 19710, 4295033088, 298023223876956250, 10314424798490637108305446464, 256923577521058878088611477224235622145150, 6277101735386680763835789423286894578616620063532571951104, 196627050475552913618075908526912116283103450944214825077052418578026469007467

Offset: 1

Author

Wesley Ivan Hurt, Oct 02 2021

Keywords

• nonn

Crossrefs

Cf. A066108, A308593.

Programs

Mathematica

Table[Sum[n^(n^2/i)*(1 - Ceiling[n/i] + Floor[n/i]), {i, n}], {n, 10}]

PARI

a(n) = sumdiv(n, d, n^(n^2/d)); \\ Michel Marcus, Oct 03 2021