OFFSET
3,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 3..1000
Margaret Bayer, Mark Denker, Marija Jelić Milutinović, Sheila Sundaram, and Lei Xue, Topology of Cut Complexes II, arXiv:2407.08158 [math.CO], 2024. See p. 15.
J. F. Steffensen, On a class of polynomials and their application to actuarial problems, Skandinavisk Aktuarietidskrift, Vol. 11, pp. 75-97, 1928.
Index entries for linear recurrences with constant coefficients, signature (5,-10,10,-5,1).
FORMULA
See A241168.
a(n) = (n-2)*(n-1)*(24 + 7*n + 3*n^2)/24. - Vaclav Kotesovec, Apr 23 2014
From Vincenzo Librandi, Dec 12 2014: (Start)
G.f.: x^3*(6-5*x+2*x^2)/(1-x)^5.
a(n) = 5*a(n-1)-10*a(n-2)+10*a(n-3)-5*a(n-4)+a(n-5) for n>4.(End)
MAPLE
with(combinat);
T:=proc(n, k) add(stirling2(n, s+1)*s!/k!, s=k..n-1); end;
[seq(T(n, n-3), n=3..16)];
MATHEMATICA
Table[(n-2)*(n-1)*(24 + 7*n + 3*n^2)/24, {n, 3, 20}] (* Vaclav Kotesovec, Apr 23 2014 *)
CoefficientList[Series[(6 - 5 x + 2 x^2) / (1 - x)^5, {x, 0, 50}], x] (* Vincenzo Librandi, Dec 12 2014 *)
PROG
(Magma) [(n-2)*(n-1)*(24+7*n+3*n^2)/24: n in [3..50]]; // Vincenzo Librandi, Dec 12 2014
(Magma) I:=[6, 25, 67, 145, 275]; [n le 5 select I[n] else 5*Self(n-1)-10*Self(n-2)+10*Self(n-3)-5*Self(n-4)+Self(n-5): n in [1..50]]; // Vincenzo Librandi, Dec 12 2014
(PARI) for(n=3, 30, print1((n-2)*(n-1)*(24+7*n+3*n^2)/24, ", ")) \\ G. C. Greubel, Feb 07 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Apr 22 2014
STATUS
approved