OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (1,0,0,0,1,-1).
FORMULA
G.f.: x^2*(1 + 2*x + x^2 + x^3 + 2*x^4) / ( (x^4 + x^3 + x^2 + x + 1)*(x-1)^2 ). - R. J. Mathar, Dec 04 2011
MATHEMATICA
CoefficientList[Series[x (1 + 2 x + x^2 + x^3 + 2 x^4) / ((x^4 + x^3 + x^2 + x + 1) (x - 1)^2), {x, 0, 60}], x] (* Vincenzo Librandi, Jul 26 2013 *)
#+{0, 1, 3, 4, 5}&/@(7*Range[0, 20])//Flatten (* or *) LinearRecurrence[ {1, 0, 0, 0, 1, -1}, {0, 1, 3, 4, 5, 7}, 80] (* Harvey P. Dale, Jun 05 2019 *)
PROG
(Magma) [n: n in [1..80] | n mod 7 in [0, 1, 3, 4, 5]]; // Vincenzo Librandi, Jul 26 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved