%I #6 Nov 26 2020 20:14:15
%S 0,0,2,-1,5,-3,9,-6,14,-10,20,-15,27,-21,35,-28,44,-36,54,-45,65,-55,
%T 77,-66,90,-78,104,-91,119,-105,135,-120,152,-136,170,-153,189,-171,
%U 209,-190,230,-210,252,-231,275,-253,299,-276,324,-300,350,-325,377,-351,405
%N a(n) = (-1)^n * Sum_{i=1..floor(n/2)} i * floor(n/(n-i)).
%C Alternate A000096 and -A000217. Differences: A131723.
%t Table[(-1)^n*Sum[i*Floor[n/(n - i)], {i, Floor[n/2]}], {n, 0, 80}] (* _Wesley Ivan Hurt_, Nov 26 2020 *)
%Y Cf. A000096, A000217, A131723.
%K sign,easy
%O 0,3
%A _Paul Curtz_, Sep 24 2007
%E New name and more terms from _Wesley Ivan Hurt_, Nov 26 2020
|