A032774 a(n) = floor( n*(n+1)*(n+2)*...*(n+6) / (n+(n+1)+(n+2)+...+(n+6)) ).
0, 180, 1152, 4320, 12342, 29700, 63360, 123552, 224640, 386100, 633600, 1000182, 1527552, 2267460, 3283200, 4651200, 6462720, 8825652, 11866422, 15732000, 20592000, 26640900, 34100352, 43221600, 54288000, 67617642, 83566080, 102529152, 124945920, 151301700, 182131200
Offset: 0
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
- Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1,1,-6,15,-20,15,-6,1).
Crossrefs
Programs
-
Maple
seq(coeff(series( -(6*x^10-36*x^9 + 90*x^8 - 120*x^7 - 90*x^6 - 108*x^5 - 102*x^4 - 108*x^3 - 72*x^2 - 180*x) / (-x^13+6*x^12 - 15*x^11+20*x^10 - 15*x^9+6*x^8 - x^7+x^6 - 6*x^5+15*x^4 - 20*x^3+15*x^2 - 6*x + 1) , x, n+1), x, n), n = 0..40); # Georg Fischer, Feb 23 2021
-
Mathematica
Table[Floor[(Times @@ Range[n, n + 6])/(7 n + 21)], {n, 0, 30}] (* Harvey P. Dale, May 16 2020 *)
Extensions
More terms from Georg Fischer, Feb 23 2021
Comments