%I #8 Jan 03 2021 15:55:22
%S 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,
%T 43,45,48,49,51,52,54,55,57,58,60,62,64,65,67,68,70,71,73,74,76,77,79,
%U 80,83,84,86,87,89,90,92,93,95,97,99,100,102,103,106,108,110,111,113
%N a(n) = Sum_{k=1..floor(n/2)} floor(k^(1/(n-k))*(n-k)^(1/k)).
%t Table[Sum[Floor[k^(1/(n - k))*(n - k)^(1/k)], {k, Floor[n/2]}], {n, 100}]
%o (PARI) a(n) = sum(k=1, n\2, floor(sqrtn(k, n-k)*sqrtn(n-k,k))); \\ _Michel Marcus_, Jan 03 2021
%Y Cf. A340288.
%K nonn
%O 1,3
%A _Wesley Ivan Hurt_, Jan 03 2021