A036789 - OEIS

%I #9 Jan 30 2016 17:00:15

%S 2,5,8,12,17,20,26,31,36,41,48,52,59,66,71,76,86,89,98,105,110,117,

%T 126,132,139,146,155,160,171,174,184,193,198,207,218,221,230,239,248,

%U 254,265,270,279,290,297,302,315,320,332,339,346,355,366

%N a(n) = Sum_{i=0..n} floor((2*i + 2)/(n - i + 1)).

%C Original name was "A022821[ j ] - j - 1."

%p A036789:=n->add(floor((2*i+2)/(n-i+1)), i=0..n): seq(A036789(n), n=0..100); # _Wesley Ivan Hurt_, Jan 30 2016

%t Table[Sum[Floor[(2 i + 2)/(n - i + 1)], {i, 0, n}], {n, 0, 100}] (* _Wesley Ivan Hurt_, Jan 30 2016 *)

%Y Cf. A022821.

%K nonn,easy

%O 0,1

%A _N. J. A. Sloane_

%E New name from _Wesley Ivan Hurt_, Jan 30 2016