OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (-1,1,3,1,-1,-1).
FORMULA
G.f.: -1/(x^3*f(x)*f(1/x)), where f(x) = -1 - x + x^3.
G.f.: 1/((1+x-x^3)*(1-x^2-x^3)). - Colin Barker, Nov 04 2012
MATHEMATICA
f[x_]= x^3-x-1; CoefficientList[Series[-1/(x^3*f[x]*f[1/x]), {x, 0, 60}], x]
LinearRecurrence[{-1, 1, 3, 1, -1, -1}, {1, -1, 2, 0, 0, 4}, 60] (* Harvey P. Dale, Sep 23 2020 *)
PROG
(Magma) R<x>:=PowerSeriesRing(Integers(), 60); Coefficients(R!( 1/((1+x-x^3)*(1-x^2-x^3)) )); // G. C. Greubel, Oct 25 2022
(SageMath)
def A147592_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( 1/((1+x-x^3)*(1-x^2-x^3)) ).list()
A147592_list(60) # G. C. Greubel, Oct 25 2022
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Roger L. Bagula, Nov 08 2008
EXTENSIONS
Edited by Joerg Arndt and Colin Barker, Nov 04 2012
STATUS
approved