OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..300
FORMULA
a(n) = Eulerian[n,Floor[n/2]] - Binomial[n,Floor[n/2]]^2.
MATHEMATICA
t[n_, k_] = Sum[(-1)^j Binomial[n + 1, j](k + 1 - j)^n, {j, 0, k + 1}];
a0 = Table[t[n, Floor[n/2]], {n, 1, 30}];
b0 = Table[Binomial[n, Floor[(n)/2]]^2, {n, 0, 29}];
a=a0-b0
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 09 2009
STATUS
approved