|
|
A078718
|
|
a(n) = (-1)^n*(2*n - 1)*CatalanNumber(n - 2) for n >= 2, a(n) = n for n = 0, 1.
|
|
2
|
|
|
0, 1, 3, -5, 14, -45, 154, -546, 1980, -7293, 27170, -102102, 386308, -1469650, 5616324, -21544100, 82907640, -319929885, 1237518450, -4796857230, 18627909300, -72457790790, 282257178060, -1100982015900, 4299680491080, -16809921068850, 65785111513524, -257683159276956
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
Original definition: Let f(i, j) = Sum_{k=0..2*i} (binomial(2*i, k)*binomial(2*j, i+j-k)*(-1)^(i+j-k) (this is essentially the same as the triangle in A068555); then a(n) = f(n, n-2)/2. Apart perhaps from signs, f(n, 0) and f(n, n) give A000984, f(n, 1) gives A002420, f(n, n-1) gives 2*A000984.
|
|
LINKS
|
|
|
FORMULA
|
G.f.: x^2*A'(x)*G(A(x))/A(x), where A(x) = x*(1+sqrt(1+4*x))/2, G(x) =(2*cosh(asinh((3^(3/2)*sqrt(x))/2)/3)*sinh(asinh((3^(3/2)*sqrt(x))/2)/3)*sqrt(x))/(sqrt(3)*sqrt((27*x)/4+1))+(4*sinh(asinh((3^(3/2)*sqrt(x))/2)/3)^2)/3+1. - Vladimir Kruchinin, Dec 16 2016
G.f.: (sqrt(4*x+1)*(4*x^2+x)+6*x^2+x)/(sqrt(4*x+1)+4*x+1). - Vladimir Kruchinin, Dec 17 2016
a(n) = (1/2)*Sum_{k=0,..,2*n} ( binomial(2*n, k)*binomial(2*(n - 2), 2*n - 2 - k)*(-1)^(2*n - 2 - k) ), with a(0)=0, a(1)=1. - G. C. Greubel, Feb 16 2017
|
|
MATHEMATICA
|
Table[(1/2)*Sum[ Binomial[2*n, k]*Binomial[2*(n - 2), 2*n - 2 - k]*(-1)^(2*n - 2 - k), {k, 0, 2*n}], {n, 0, 50}] (* G. C. Greubel, Feb 16 2017 *)
(* Mathematica returns CatalanNumber[-2] = 0 and CatalanNumber[-1] = -1. This extended definition is in accordance with the alternative definition of the Catalan numbers C(n) = binomial(2*n, n) - binomial(2*n, n-1). *)
a[n_] := (-1)^n (2 n - 1) CatalanNumber[n - 2];
|
|
PROG
|
(Maxima)
A(x) := x*(1 + sqrt(1+4*x))/2;
G(x) := (2*cosh(asinh((3^(3/2)*sqrt(x))/2)/3)*sinh(asinh((3^(3/2)*sqrt(x))/2)/3)* sqrt(x))/(sqrt(3)*sqrt((27*x)/4+1))+(4*sinh(asinh((3^(3/2)*sqrt(x))/2)/3)^2)/3 + 1;
(PARI) concat([0, 1], for(n=2, 25, print1(sum(k=0, 2*n, (1/2)* binomial(2*n, k)* binomial(2*( n-2), 2*n-k-2)*(-1)^(2*n-k-2)), ", "))) \\ G. C. Greubel, Feb 16 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|