Table[Binomial[n+7, 7] Binomial[n+7, 6]/(n+7), {n, 0, 30}] (* or *) LinearRecurrence[{13, -78, 286, -715, 1287, -1716, 1716, -1287, 715, -286, 78, -13, 1}, {1, 28, 336, 2520, 13860, 60984, 226512, 736164, 2147145, 5725720, 14158144, 32821152, 71954064}, 30] (*
Harvey P. Dale, Sep 28 2016 *)