A016130 Expansion of 1/((1-2x)(1-7x)).

1, 9, 67, 477, 3355, 23517, 164683, 1152909, 8070619, 56494845, 395464939, 2768256621, 19377800443, 135644611293, 949512295435, 6646586100813, 46526102771227, 325682719529661, 2279779036969771

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..200

Index entries for linear recurrences with constant coefficients, signature (9,-14)

Formula

a(n) = (7^(n+1) - 2^(n+1))/5. - Lambert Klasen (lambert.klasen(AT)gmx.net), Feb 06 2005

a(n) = 7*a(n-1) + 2^n, a(0)=1. - Vincenzo Librandi, Jun 24 2013

Example

1/((1-2x)(1-7x)) = 1 + 9*x + 67*x^2 + 477*x^3 + 3355*x^4 + 23517*x^5 + 164683*x^6 + ...

Mathematica

Join[{a=1, b=9}, Table[c=9*b-14*a; a=b; b=c, {n, 60}]] (* Vladimir Joseph Stephan Orlovsky, Jan 27 2011 *)
CoefficientList[Series[1 /((1 - 2 x) (1 - 7 x)), {x, 0, 200}], x] (* Vincenzo Librandi, Jun 24 2013 *)

Prog

(Sage) [lucas_number1(n, 9, 14) for n in range(1, 20)] # Zerinvary Lajos, Apr 23 2009
(Sage) [(7^n - 2^n)/5 for n in range(1, 20)] # Zerinvary Lajos, Jun 04 2009
(PARI) Vec(1/((1-2*x)*(1-7*x))+O(x^99)) \\ Charles R Greathouse IV, Sep 23 2012
(Magma) m:=20; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/((1-2*x) (1-7*x)))); // Vincenzo Librandi, Jun 24 2013

Crossrefs

Sequence in context: A238317 A105287 A163349 * A115202 A287817 A155592

Adjacent sequences: A016127 A016128 A016129 * A016131 A016132 A016133

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved