A134325 a(n) = a(n) = +13*a(n-2) +7*a(n-3) -47*a(n-4) -38*a(n-5) +48*a(n-6) +43*a(n-7) -7*a(n-8) -1*a(n-9).

3, 9, 29, 87, 281, 857, 2741, 8471, 26876, 83710, 264309, 826648, 2603282, 8159120, 25659956, 80507046, 253016149, 794239479, 2495264294, 7834844821, 24610555850, 77283962750, 242741417095, 762321637062, 2394279296957, 7519380053469, 23616189050476

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

Sequence in context: A242558 A018361 A351797 * A220950 A123947 A262253

Adjacent sequences: A134322 A134323 A134324 * A134326 A134327 A134328

Keyword

nonn,less,easy

Author

Roger L. Bagula, Jan 16 2008

Status

approved