A350224 a(n) = Sum_{k=1..n} (-1)^(k+1) * floor((n/k)^n).

1, 3, 25, 242, 3038, 45981, 817445, 16714015, 386682183, 9990395075, 285173906017, 8913939944658, 302838320218733, 11111330886027346, 437880557043106024, 18446463023081162520, 827233956902648749749, 39346258081658580861101

Offset

1,2

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A344724, A347416, A350221, A350222, A350223.

Sequence in context: A134272 A335117 A346539 * A171640 A099913 A245925

Adjacent sequences: A350221 A350222 A350223 * A350225 A350226 A350227

Keyword

nonn

Author

Seiichi Manyama, Dec 20 2021

Status

approved