A347416 a(n) = Sum_{k=1..n} floor((n/k)^n).

1, 5, 31, 276, 3238, 47463, 830415, 16845619, 388198577, 10009945747, 285452668383, 8918294580680, 302912273410475, 11112687415252836, 437907284782655738, 18447025981637731050, 827246579683710818081, 39346558272075085340201, 1978423430905859200399397

Offset

1,2

Links

Seiichi Manyama, Table of n, a(n) for n = 1..386

Formula

a(n) ~ n^n. - Vaclav Kotesovec, Sep 14 2021

Example

a(3) = [(3/1)^3] + [(3/2)^3] + [(3/3)^3] = 27 + 3 + 1 = 31.

Mathematica

a[n_] := Sum[Floor[(n/k)^n], {k, 1, n}]; Array[a, 20] (* Amiram Eldar, Aug 31 2021 *)

Prog

(PARI) a(n) = sum(k=1, n, n^n\k^n);

Crossrefs

Cf. A006218, A153818, A332469, A344675, A347415.

Sequence in context: A273601 A218679 A296967 * A292462 A340392 A360774

Adjacent sequences: A347413 A347414 A347415 * A347417 A347418 A347419

Keyword

nonn

Author

Seiichi Manyama, Aug 31 2021

Status

approved