A114982 - OEIS

%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