OFFSET
0,3
LINKS
Colin Barker, Table of n, a(n) for n = 0..1000
G. Nebe, E. M. Rains and N. J. A. Sloane, Self-Dual Codes and Invariant Theory, Springer, Berlin, 2006.
Index entries for linear recurrences with constant coefficients, signature (2,0,-2,3,-4,1,2,-3,4,-3,2,1,-4,3,-2,0,2,-1).
FORMULA
G.f.: (1+x^5+x^8+x^13)/((1-x)*(1-x^2)^2*(1-x^4)^2*(1-x^6)).
G.f.: (1-x+x^2-x^3+x^4)*(1+x^8) / ((1-x)^6*(1+x)^4*(1-x+x^2)*(1+x^2)^2*(1+x+x^2)). - Colin Barker, Apr 02 2015
MAPLE
seq(coeff(series((1+x^5+x^8+x^13)/((1-x)*(1-x^2)^2*(1-x^4)^2*(1-x^6)), x, n+1), x, n), n = 0..50); # G. C. Greubel, Feb 03 2020
MATHEMATICA
CoefficientList[Series[(1+x^5+x^8+x^13)/((1-x)*(1-x^2)^2*(1-x^4)^2*(1-x^6)), {x, 0, 50}], x] (* G. C. Greubel, Feb 03 2020 *)
PROG
(PARI) Vec((x^4-x^3+x^2-x+1)*(x^8+1)/((x-1)^6*(x+1)^4*(x^2-x+1)*(x^2+1)^2*(x^2+x+1)) + O(x^50)) \\ Colin Barker, Apr 02 2015
(Sage)
def A092549_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( (1+x^5+x^8+x^13)/((1-x)*(1-x^2)^2*(1-x^4)^2*(1-x^6)) ).list()
A092549_list(50) # G. C. Greubel, Feb 03 2020
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Apr 09 2004
EXTENSIONS
Corrected by G. Nebe, Jun 30 2005
STATUS
approved