v=n+Binomial[n,4];
e=(1/2)(4Binomial[n,4]+(n+1)n);
f=(2+e-v)-1;
Simplify[f]

Table[f/.n->k, {k,2,10}]