|
|
A126087
|
|
Expansion of c(2*x^2)/(1-x*c(2*x^2)), where c(x) = (1-sqrt(1-4*x))/(2*x) is the g.f. of the Catalan numbers (A000108).
|
|
8
|
|
|
1, 1, 3, 5, 15, 29, 87, 181, 543, 1181, 3543, 7941, 23823, 54573, 163719, 381333, 1143999, 2699837, 8099511, 19319845, 57959535, 139480397, 418441191, 1014536117, 3043608351, 7426790749, 22280372247, 54669443141, 164008329423
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
Series reversion of x*(1+x)/(1+2*x+3*x^2) [offset 0]. - Paul Barry, Mar 13 2007
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (1-sqrt(1-8*x^2))/(x*(4*x-1+sqrt(1-8*x^2))). - Emeric Deutsch, Mar 04 2007
a(n) = Sum_(k=1..n} (1+(-1)^(n-k))*k*2^((n-k)/2-1)*C(n,(n+k)/2)/n, n>0. - Vladimir Kruchinin, Feb 18 2011
D-finite with recurrence: (n+1)*a(n) = 3*(n+1)*a(n-1) - 8*(2-n)*a(n-2) - 24*(n-2)*a(n-3). - R. J. Mathar, Nov 14 2011
a(n) ~ 2^(3*(n+1)/2) * (3+2*sqrt(2) + (3-2*sqrt(2))*(-1)^n) / (n^(3/2) * sqrt(Pi)). - Vaclav Kotesovec, Feb 13 2014
|
|
MAPLE
|
c:=x->(1-sqrt(1-4*x))/2/x: G:=c(2*x^2)/(1-x*c(2*x^2)): Gser:=series(G, x=0, 35): seq(coeff(Gser, x, n), n=0..32); # Emeric Deutsch, Mar 04 2007
|
|
MATHEMATICA
|
CoefficientList[Series[(1-Sqrt[1-8*x^2])/(x*(4*x-1+Sqrt[1-8*x^2])), {x, 0, 20}], x] (* Vaclav Kotesovec, Feb 13 2014 *)
|
|
PROG
|
(Magma) R<x>:=PowerSeriesRing(Rationals(), 40); Coefficients(R!( (1-Sqrt(1-8*x^2))/(x*(4*x-1+Sqrt(1-8*x^2))) )); // G. C. Greubel, Nov 07 2022
(SageMath)
def A120730(n, k): return 0 if (n>2*k) else binomial(n, k)*(2*k-n+1)/(k+1)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|