

A185251


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


3



0, 0, 2, 3, 16, 25, 96, 154, 512, 837, 2560, 4246, 12288, 20618, 57344, 97140, 262144, 447661, 1179648, 2028478, 5242880, 9070110, 23068672, 40122028, 100663296, 175913250, 436207616, 765561564, 1879048192, 3310623412, 8053063680, 14238676712, 34359738368
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


LINKS

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


MAPLE

seq(n*2^(n2)  `if`(type(n, even), 0, binomial(n1, (n1)/2)*n/2) , n=0..32); # Mark van Hoeij, May 12 2013


MATHEMATICA

Table[Sum[k Binomial[n, k], {k, 0, Floor[n/2]}], {n, 0, 40}] (* Harvey P. Dale, Nov 25 2012 *)


PROG

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


CROSSREFS

Sequence in context: A100643 A067037 A117926 * A092503 A147662 A074182
Adjacent sequences: A185248 A185249 A185250 * A185252 A185253 A185254


KEYWORD

nonn,easy


AUTHOR

M. F. Hasler, Jan 24 2012


STATUS

approved



