OFFSET
2,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 2..440
FORMULA
From Vaclav Kotesovec, Jul 05 2018: (Start)
Recurrence: (n-2)*(n+1)*(n^2 - 7*n + 9)*a(n) = 2*(n-1)*(n^4 - 8*n^3 + 16*n^2 - 5*n - 9)*a(n-1) - (n-2)*(n-1)*(n^4 - 8*n^3 + 21*n^2 - 30*n + 15)*a(n-2) + (n-3)*(n-2)^2*(n-1)*(n^2 - 5*n + 3)*a(n-3).
a(n) ~ exp(2*sqrt(n) - n - 1/2) * n^(n - 5/4) / sqrt(2). (End)
a(n) = Sum_{k=0..n-2} (n!*(n-1)!)/((k+2)!*(n-k-1)!*(n-k-2)!). - G. C. Greubel, Jul 15 2019
MATHEMATICA
Table[Binomial[n, 2]*HypergeometricPFQ[{1, -n + 1, -n + 2}, {3}, 1], {n, 2, 30}] (* Vaclav Kotesovec, Jul 05 2018 *)
PROG
(PARI) vector(30, n, n++; sum(k=0, n-2, (n!*(n-1)!)/((k+2)!*(n-k-1)!*(n-k-2)!)) ) \\ G. C. Greubel, Jul 15 2019
(Magma) F:=Factorial; [(&+[(F(n)*F(n-1))/(F(k+2)*F(n-k-1)*F(n-k-2)): k in [0..n-2]]): n in [2..30]]; // G. C. Greubel, Jul 15 2019
(Sage) f=factorial; [sum((f(n)*f(n-1))/(f(k+2)*f(n-k-1)*f(n-k-2)) for k in (0..n-2)) for n in (2..30)] # G. C. Greubel, Jul 15 2019
(GAP) F:=Factorial;; List([2..30], n-> Sum([0..n-2], k-> (F(n)*F(n-1))/( F(k+2)*F(n-k-1)*F(n-k-2)) )); # G. C. Greubel, Jul 15 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Karol A. Penson, Feb 28 2003
EXTENSIONS
Terms a(19) onward added by G. C. Greubel, Jul 15 2019
STATUS
approved