A114982 Expansion of x(3-x^2)/(1-3x).

0, 3, 9, 26, 78, 234, 702, 2106, 6318, 18954, 56862, 170586, 511758, 1535274, 4605822, 13817466, 41452398, 124357194, 373071582, 1119214746, 3357644238, 10072932714, 30218798142, 90656394426, 271969183278, 815907549834

Offset

0,2

Links

Table of n, a(n) for n=0..25.

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

Sequence in context: A119826 A027915 A295115 * A133405 A368088 A196952

Adjacent sequences: A114979 A114980 A114981 * A114983 A114984 A114985

Keyword

nonn

Author

Roger L. Bagula, Feb 27 2006

Extensions

Entry revised by N. J. A. Sloane, Mar 28 2006

Status

approved