OFFSET
0,2
MAPLE
G:=x*(3-x^2)/(1-3*x): Gser:=series(G, x=0, 30): seq(coeff(Gser, x, n), n=0..28);
MATHEMATICA
p[x_] = x*(x^2 - 3)/(3*x - 1) b = Flatten[{{0}, Abs[Table[Coefficient[Series[x*(x^2 - 3)/(3*x - 1), {x, 0, 30}], x^n], {n, 1, 30}]]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Feb 27 2006
EXTENSIONS
Entry revised by N. J. A. Sloane, Mar 28 2006
STATUS
approved