%I #5 Mar 12 2014 16:36:50
%S 0,3,9,26,78,234,702,2106,6318,18954,56862,170586,511758,1535274,
%T 4605822,13817466,41452398,124357194,373071582,1119214746,3357644238,
%U 10072932714,30218798142,90656394426,271969183278,815907549834
%N Expansion of x(3-x^2)/(1-3x).
%p G:=x*(3-x^2)/(1-3*x): Gser:=series(G,x=0,30): seq(coeff(Gser,x,n),n=0..28);
%t 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}]]}]
%K nonn
%O 0,2
%A _Roger L. Bagula_, Feb 27 2006
%E Entry revised by _N. J. A. Sloane_, Mar 28 2006