OFFSET
0,7
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
FORMULA
G.f.: (4*x^9-6*x^8-3*x^7-5*x^6-2*x^5-2*x^4-2*x^3-x^2+1) / ((2*x-1) * (2*x^2+2*x+1) * (x^2-x-1) * (4*x^4-2*x^3+3*x^2-x+1)).
MATHEMATICA
CoefficientList[Series[(4*x^9-6*x^8-3*x^7-5*x^6-2*x^5-2*x^4-2*x^3-x^2+1)/((2*x-1)*(2*x^2+2*x+1)*(x^2-x-1)*(4*x^4-2*x^3+3*x^2-x+1)), {x, 0, 40}], x] (* Vincenzo Librandi, Oct 10 2025 *)
PROG
(Magma) m:=35; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!((4*x^9-6*x^8-3*x^7-5*x^6-2*x^5-2*x^4-2*x^3-x^2+1) / ((2*x-1) * (2*x^2+2*x+1) * (x^2-x-1) * (4*x^4-2*x^3+3*x^2-x+1)))); // Vincenzo Librandi, Oct 10 2025
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Sean A. Irvine, Nov 21 2024
STATUS
approved
