OFFSET
2,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 2..1000
FORMULA
a(n) = binomial(2*n, n+2)*(49*n^4 - 154*n^3 + 209*n^2 - 200*n + 108)/(24*binomial(2*n, 4)) -2*(n^2 - 2*n + 2) + [n=2]. - G. C. Greubel, Jun 17 2024
MATHEMATICA
Table[Binomial[2*n, n+2]*(49*n^4 -154*n^3 +209*n^2 -200*n +108)/(24* Binomial[2*n, 4]) -2*(n^2-2*n+2) + Boole[n==2], {n, 2, 40}] (* G. C. Greubel, Jun 17 2024 *)
PROG
(Magma) [n eq 2 select 1 else Binomial(2*n, n+2)*(49*n^4 -154*n^3 + 209*n^2 -200*n +108)/(24*Binomial(2*n, 4)) -2*(n^2-2*n+2): n in [2..40]]; // G. C. Greubel, Jun 17 2024
(SageMath) [binomial(2*n, n+2)*(49*n^4 -154*n^3 +209*n^2 -200*n +108 )/(24*binomial(2*n, 4)) -2*(n^2-2*n+2) +int(n==2) for n in range(2, 41)] # G. C. Greubel, Jun 17 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Sean A. Irvine, Oct 20 2019
STATUS
approved