L[p_, q_, r_] := Sum[ Binomial[q, i]*Binomial[r + p - 1 - i, r-1], {i, 0, Min[p, q]}]; t[n_, k_] := 2^(k-1)*(k*L[n - k - 1, 3*n - k - 4, n - 2] - L[n - k - 2, 3*n - k - 3, n-1])/(n-1); t[2, 1] = 1; a[n_] := Sum[ k*t[n, k], {k, 1, n-1}]; Table[a[n], {n, 2, 21}] (*
Jean-François Alcover, Oct 05 2011, after Maple *)