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

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

Links

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

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

Adjacent sequences: A340286 A340287 A340288 * A340290 A340291 A340292

Keyword

nonn

Author

Wesley Ivan Hurt, Jan 03 2021

Status

approved