A185252 a(n) = Sum_{k=0..ceiling(n/2)} k*binomial(n,k).

0, 1, 2, 9, 16, 55, 96, 294, 512, 1467, 2560, 7018, 12288, 32630, 57344, 148620, 262144, 666451, 1179648, 2952258, 5242880, 12949986, 23068672, 56346964, 100663296, 243517150, 436207616, 1046377764, 1879048192, 4474004812, 8053063680, 19047319832, 34359738368

Offset

0,3

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Formula

a(2*n) = A185251(2*n).

Mathematica

Table[Sum[k Binomial[n, k], {k, 0, Ceiling[n/2]}], {n, 0, 50}] (* G. C. Greubel, Jun 25 2017 *)

Prog

(PARI) a(n)=sum(k=0, (n+1)\2, k*binomial(n, k))

Crossrefs

Sequence in context: A097965 A304974 A075645 * A055259 A032299 A032211

Adjacent sequences: A185249 A185250 A185251 * A185253 A185254 A185255

Keyword

nonn,easy

Author

M. F. Hasler, Jan 24 2012

Status

approved