OFFSET
0,2
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (2,-1,2,-1,2,-1,2,-1,2,-1).
FORMULA
G.f.: (t^10 + t^9 + t^8 + t^7 + t^6 + t^5 + t^4 + t^3 + t^2 + t + 1) / (t^10 - 2*t^9 + t^8 - 2*t^7 + t^6 - 2*t^5 + t^4 - 2*t^3 + t^2 - 2*t + 1).
MAPLE
seq(coeff(series((1+t)*(1-t^11)/(1-2*t+2*t^11-t^12), t, n+1), t, n), n = 0..30); # G. C. Greubel, Mar 12 2020
MATHEMATICA
CoefficientList[Series[(1+t)*(1-t^11)/(1-2*t+2*t^11-t^12), {t, 0, 30}], t] (* G. C. Greubel, May 09 2016 *)
PROG
(SageMath)
def A166327_list(prec):
P.<t> = PowerSeriesRing(ZZ, prec)
return P( (1+t)*(1-t^11)/(1-2*t+2*t^11-t^12) ).list()
A166327_list(30) # G. C. Greubel, Aug 10 2019
(PARI) Vec((x^10+x^9+x^8+x^7+x^6+x^5+x^4+x^3+x^2+x+1)/(x^10-2*x^9+x^8-2*x^7+x^6-2*x^5+x^4-2*x^3+x^2-2*x+1)+O(x^99)) \\ Charles R Greathouse IV, Jun 08 2026
(PARI) a(n)=if(n, ([0, 1, 0, 0, 0, 0, 0, 0, 0, 0; 0, 0, 1, 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 1, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 1, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 1, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 1, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0, 1, 0, 0; 0, 0, 0, 0, 0, 0, 0, 0, 1, 0; 0, 0, 0, 0, 0, 0, 0, 0, 0, 1; -1, 2, -1, 2, -1, 2, -1, 2, -1, 2]^(n-1)*[3; 6; 12; 24; 48; 96; 192; 384; 768; 1536])[1, 1], 1) \\ Charles R Greathouse IV, Jun 08 2026
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
John Cannon and N. J. A. Sloane, Dec 03 2009
STATUS
approved
