A192659 Alternating partial sums of the Floor-Sqrt transform of central binomial coefficients.

1, 0, 2, 2, 6, 9, 21, 37, 76, 144, 285, 554, 1090, 2134, 4199, 8255, 16261, 32046, 63217, 124786, 246490, 487170, 963381, 1906014, 3772683, 7470564, 14798664, 29325472, 58131320, 115267833, 228628345, 453594751, 900149737, 1786749671, 3547389573, 7044412814, 13991569223

Offset

0,3

Links

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

Formula

a(n) = sum((-1)^(n-k)*floor(sqrt(binomial(2*k,k))),k=0..n).

Mathematica

Table[Sum[(-1)^(n-k)Floor[Sqrt[Binomial[2k, k]]], {k, 0, n}], {n, 0, 100}]

Prog

(Maxima) makelist(sum((-1)^(n-k)*floor(sqrt(binomial(2*k, k))), k, 0, n), n, 0, 24);

Crossrefs

Sequence in context: A367718 A000022 A034805 * A327485 A207975 A321623

Adjacent sequences: A192656 A192657 A192658 * A192660 A192661 A192662

Keyword

nonn

Author

Emanuele Munarini, Jul 07 2011

Status

approved