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

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

Offset

1,2

Links

Table of n, a(n) for n=1..9.

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

Cf. A066108, A308593.

Sequence in context: A172661 A172758 A146497 * A060618 A369948 A064487

Adjacent sequences: A348141 A348142 A348143 * A348145 A348146 A348147

Keyword

nonn

Author

Wesley Ivan Hurt, Oct 02 2021

Status

approved