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

2, 5, 8, 12, 17, 20, 26, 31, 36, 41, 48, 52, 59, 66, 71, 76, 86, 89, 98, 105, 110, 117, 126, 132, 139, 146, 155, 160, 171, 174, 184, 193, 198, 207, 218, 221, 230, 239, 248, 254, 265, 270, 279, 290, 297, 302, 315, 320, 332, 339, 346, 355, 366

Offset

0,1

Comments

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

Links

Table of n, a(n) for n=0..52.

Maple

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

Mathematica

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

Crossrefs

Cf. A022821.

Sequence in context: A108577 A272719 A297834 * A330188 A214047 A241566

Adjacent sequences: A036786 A036787 A036788 * A036790 A036791 A036792

Keyword

nonn,easy

Author

N. J. A. Sloane

Extensions

New name from Wesley Ivan Hurt, Jan 30 2016

Status

approved