OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (0,13,7,-47,-38,48,43,-7,-1).
FORMULA
G.f.: -x*(x^8 + 7*x^7 - 40*x^6 - 60*x^5 + 18*x^4 + 51*x^3 + 10*x^2 - 9*x - 3)/(x^9 + 7*x^8 - 43*x^7 - 48*x^6 + 38*x^5 + 47*x^4 - 7*x^3 - 13*x^2 + 1). [Colin Barker, Oct 17 2012]
MATHEMATICA
LinearRecurrence[{0, 13, 7, -47, -38, 48, 43, -7, -1}, {3, 9, 29, 87, 281, 857, 2741, 8471, 26876}, 30] (* Vincenzo Librandi, Dec 29 2018 *)
PROG
(Magma) I:=[3, 9, 29, 87, 281, 857, 2741, 8471, 26876]; [n le 9 select I[n] else 13*Self(n-2) + 7*Self(n-3) - 47*Self(n-4) - 38*Self(n-5) + 48*Self(n-6) + 43*Self(n-7) - 7*Self(n-8) - Self(n-9): n in [1..30]]; // Vincenzo Librandi, Dec 29 2018
CROSSREFS
KEYWORD
nonn,less,easy
AUTHOR
Roger L. Bagula, Jan 16 2008
STATUS
approved