OFFSET
1,3
MATHEMATICA
Table[Sum[Floor[Floor[(n - k)^(1/k)]/k], {k, n}], {n, 100}]
PROG
(PARI) a(n) = sum(k=1, n, sqrtnint(n-k, k)\k); \\ Michel Marcus, Jan 03 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jan 03 2021
STATUS
approved