Same program letting k be the summation index instead of n
Clear[t, n, k, a, b, x, y];
nn = 16;
t[n_, 1] = 1;
t[n_, k_] :=
t[n, k] =
If[n >= k,
Sum[t[n - i, k - 1], {i, 1, k - 1}] -
Sum[t[n - i, k], {i, 1, k - 1}], 0];
a = Table[Sum[t[n, k], {k, 1, nn}], {n, 1, nn}]