OFFSET
0,8
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..1000
FORMULA
MATHEMATICA
CoefficientList[Series[(x - 1) (x^3 + 3 x^2 + 2 x + 1)/((3 x^3 - 1) (x^2 + x + 1)), {x, 0, 52}], x] (* Michael De Vlieger, Nov 05 2018 *)
PROG
(PARI) Vec((1 - x)*(1 + 2*x + 3*x^2 + x^3)/((1 - 3*x^3)*(1 + x + x^2)) + O(x^40)) \\ Andrew Howroyd, Nov 03 2018
(Magma) m:=50; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!( (x-1)*(x^3+3*x^2+2*x+1)/((3*x^3-1)*(x^2+x+1)) )); // G. C. Greubel, Nov 21 2018
(Sage) s=((x-1)*(x^3+3*x^2+2*x+1)/((3*x^3-1)*(x^2+x+1))).series(x, 50);
s.coefficients(x, sparse=False) # G. C. Greubel, Nov 21 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Curtz, May 25 2008
EXTENSIONS
Terms a(33) and beyond from Andrew Howroyd, Nov 03 2018
STATUS
approved