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