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,2,-3,-1,5,-1,-3,2,1,-1).
FORMULA
G.f.: -1/(x^5*f(x)*f(1/x)), where f(x) = -1 +x^2 -x^3 -x^4 +x^5.
G.f.: 1/((x^5-x^4-x^3+x^2-1)*(x^5-x^3+x^2+x-1)). - Maksym Voznyy (voznyy(AT)mail.ru), Jul 27 2009
MATHEMATICA
f[x_]= x^5 -x^4 -x^3 +x^2 -1;
CoefficientList[Series[-1/(x^5*f[x]*f[1/x]), {x, 0, 50}], x]
PROG
(Magma) R<x>:=PowerSeriesRing(Integers(), 50); Coefficients(R!( 1/((1-x^2+x^3+x^4-x^5)*(1-x-x^2+x^3-x^5)) )); // G. C. Greubel, Oct 25 2022
(SageMath)
def A147598_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( 1/((1-x^2+x^3+x^4-x^5)*(1-x-x^2+x^3-x^5)) ).list()
A147598_list(50) # G. C. Greubel, Oct 25 2022
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Roger L. Bagula, Nov 08 2008
EXTENSIONS
Better name (using g.f.) from Joerg Arndt, Apr 06 2018
STATUS
approved