OFFSET
1,2
LINKS
Colin Barker, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (-1,1,1).
FORMULA
From Colin Barker, Mar 14 2020: (Start)
G.f.: x^2*(2 + 3*x + 4*x^2 - x^3 - 2*x^4) / ((1 - x)*(1 + x)^2).
a(n) = -a(n-1) + a(n-2) + a(n-3) for n>6.
(End)
MATHEMATICA
Nest[Append[#, Block[{k = 1, s = 1}, While[Nand[FreeQ[#, s k], And[IntegerQ@ Mean@ #, Total@ # != 0] &@ Append[#, s k]], If[s == 1, s = -1, k++; s = 1]]; s k]] &, {0}, 52] (* Michael De Vlieger, Dec 12 2017 *)
PROG
(PARI) concat(0, Vec(x^2*(2 + 3*x + 4*x^2 - x^3 - 2*x^4) / ((1 - x)*(1 + x)^2) + O(x^65))) \\ Colin Barker, Mar 14 2020
CROSSREFS
KEYWORD
sign
AUTHOR
Enrique Navarrete, Dec 04 2017
STATUS
approved