login
A350224
a(n) = Sum_{k=1..n} (-1)^(k+1) * floor((n/k)^n).
3
1, 3, 25, 242, 3038, 45981, 817445, 16714015, 386682183, 9990395075, 285173906017, 8913939944658, 302838320218733, 11111330886027346, 437880557043106024, 18446463023081162520, 827233956902648749749, 39346258081658580861101
OFFSET
1,2
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
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Dec 20 2021
STATUS
approved