login
A340289
a(n) = Sum_{k=1..floor(n/2)} floor(k^(1/(n-k))*(n-k)^(1/k)).
1
0, 1, 2, 5, 6, 9, 10, 13, 13, 16, 17, 20, 21, 23, 24, 26, 28, 30, 31, 33, 34, 36, 37, 39, 40, 43, 45, 48, 49, 51, 52, 54, 55, 57, 58, 60, 62, 64, 65, 67, 68, 70, 71, 73, 74, 76, 77, 79, 80, 83, 84, 86, 87, 89, 90, 92, 93, 95, 97, 99, 100, 102, 103, 106, 108, 110, 111, 113
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
Cf. A340288.
Sequence in context: A213713 A031461 A085183 * A133759 A188258 A308395
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jan 03 2021
STATUS
approved