(MAGMAMagma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); [0] cat Coefficients(R!(x*(1-4*x)^(3/2)/(1-3*x)^2)); // G. C. Greubel, Oct 27 2018
(MAGMAMagma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); [0] cat Coefficients(R!(x*(1-4*x)^(3/2)/(1-3*x)^2)); // G. C. Greubel, Oct 27 2018
proposed
approved
editing
proposed
Expansion of (x*(1 - 4*x)^(3/2))/(3*x - 1)^2.
G. C. Greubel, <a href="/A320826/b320826.txt">Table of n, a(n) for n = 0..1000</a>
(PARI) x='x+O('x^30); concat([0], Vec(x*(1-4*x)^(3/2)/(1-3*x)^2)) \\ G. C. Greubel, Oct 27 2018
(MAGMA) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); [0] cat Coefficients(R!(x*(1-4*x)^(3/2)/(1-3*x)^2)); // G. C. Greubel, Oct 27 2018
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
$Assumptions = _ \[Element] Reals;
CoefficientList[Series[(I x (1 - 4 x - 1)^(3/2))/(3 x - 1)^2, {x, 0, 28}], x]
Expansion of (i*x*(1 - 4*x - 1)^(3/2))/(3*x - 1)^2 assuming real x and i denoting the imaginary unit.
proposed
editing
editing
proposed