OFFSET
0,17
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (-1,0,1,1,1,1,1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,-1,-1,-1,-1,-1,0,1,1).
MATHEMATICA
A029826 = CoefficientList[Series[1/(1+x-x^3-x^4-x^5-x^6-x^7+x^9+x^10), {x, 0, 250}], x];
Table[Ceiling[A029826[[n+1]]/2], {n, 0, 100}] (* modified by G. C. Greubel, Apr 23 2021 *)
PROG
(Magma)
R<x>:= PowerSeriesRing(Integers(), 105);
A029826:= Coefficients(R!( 1/(1+x-x^3-x^4-x^5-x^6-x^7+x^9+x^10) ));
[A173894(n): n in [0..100]]; // G. C. Greubel, Apr 23 2021
(Sage)
A029826=[( 1/(1+x-x^3-x^4-x^5-x^6-x^7+x^9+x^10) ).series(x, n+1).list()[n] for n in (0..100)]
[A173894(n) for n in (0..100)] # G. C. Greubel, Apr 23 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Nov 26 2010
STATUS
approved