A103970 Expansion of (1 - sqrt(1 - 4*x - 12*x^2))/(2*x).
1, 4, 8, 32, 128, 576, 2688, 13056, 65024, 330752, 1710080, 8962048, 47497216, 254132224, 1370849280, 7447117824, 40707293184, 223731253248, 1235630948352, 6853893292032, 38166664839168, 213288826699776, 1195775593807872, 6723691157127168, 37908469021409280, 214260335517892608, 1213784937073737728, 6890689428042285056
Offset: 0
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Crossrefs
Programs
-
Magma
R
:=PowerSeriesRing(Rationals(), 35); Coefficients(R!( (1-Sqrt(1-4*x-12*x^2))/(2*x) )); // G. C. Greubel, Mar 16 2019 -
Maple
n:=30:a(0):=1:a(1):=4: k:=1: for k from 1 to n do a(k+1):=sum('a(p)*a(k-p)','p'=0..k):od:seq(a(k),k=0..n); # Richard Choulet, Dec 17 2009 taylor(((1-(1-4*z-12*z^2)^0.5)/(2*z)),z=0,32); # Richard Choulet, Dec 17 2009
-
Mathematica
CoefficientList[Series[(1 - Sqrt[1-4x-12x^2])/(2x), {x, 0, 33}], x] (* Vincenzo Librandi, Aug 18 2017 *)
-
PARI
my(x='x+O('x^35)); Vec((1-sqrt(1-4*x-12*x^2))/(2*x)) \\ G. C. Greubel, Mar 16 2019
-
Sage
((1-sqrt(1-4*x-12*x^2))/(2*x)).series(x, 35).coefficients(x, sparse=False) # G. C. Greubel, Mar 16 2019
Formula
G.f.: (1 - sqrt(1-4*x*(1+3*x)))/(2*x).
a(n) = Sum_{k=0..n} 3^(n-k)*C(k)*C(k+1, n-k).
D-finite with recurrence: (n+1)*a(n) = 2*(2*n-1)*a(n-1) + 12*(n-2)*a(n-2). - Richard Choulet, Dec 17 2009
Comments