ReplaceAll[Binomial[n + k - 2, k - 1] Binomial[2 n - 1, n - k], {k -> Range[1,n]}] where n = 12