OFFSET
5,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 5..1000
Index entries for linear recurrences with constant coefficients, signature (5,-10,10,-5,1).
FORMULA
a(n) = (n-3)*(n-4)*(n^2+13*n+6)/24, n>4, sign corrected Mar 13 2016.
G.f.: x^5*(4-3*x)*(2-x)/(1-x)^5. - R. J. Mathar, Mar 13 2016
E.g.f.: (-72 -120*x -36*x^2 + (72 +48*x -48*x^2 +12*x^3 +x^4)*exp(x))/24. - G. C. Greubel, Jan 21 2020
MAPLE
seq( (n-3)*(n-4)*(n^2+13*n+6)/4!, n=5..40); # G. C. Greubel, Jan 21 2020
MATHEMATICA
Table[(n-3)*(n-4)*(n^2+13*n+6)/4!, {n, 5, 40}] (* G. C. Greubel, Jan 21 2020 *)
PROG
(PARI) a(n) = (n-3)*(n-4)*(n^2+13*n+6)/4!; \\ G. C. Greubel, Jan 21 2020
(Magma) [(n-3)*(n-4)*(n^2+13*n+6)/24: n in [5..40]]; // G. C. Greubel, Jan 21 2020
(Sage) [(n-3)*(n-4)*(n^2+13*n+6)/24 for n in (5..40)] # G. C. Greubel, Jan 21 2020
(GAP) List([5..40], n-> (n-3)*(n-4)*(n^2+13*n+6)/24); # G. C. Greubel, Jan 21 2020
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 28 2000
STATUS
approved