login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A133931 Expansion of x*(2-4*x^2-x^3)/((1-x)^2*(1-x-x^2)). 0
2, 6, 10, 15, 21, 29, 40, 56, 80, 117, 175, 267, 414, 650, 1030, 1643, 2633, 4233, 6820, 11004, 17772, 28721, 46435, 75095, 121466, 196494, 317890, 514311, 832125, 1346357, 2178400, 3524672, 5702984, 9227565, 14930455, 24157923, 39088278 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..37.

Index entries for linear recurrences with constant coefficients, signature (3,-2,-1,1).

FORMULA

a(n) = 3*a(n-1)-2*a(n-2)-a(n-3)+a(n-4). G.f.: x*(2-4*x^2-x^3)/((1-x)^2*(1-x-x^2)). [Colin Barker, Jun 10 2012]

MATHEMATICA

M = {{0, 1, 0, 0}, {1, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 3, 1}}; v[1] = {0, 1, 1, 0}; v[n_] := v[n] = M.v[n - 1] a = Table[Apply[Plus, v[n]], {n, 1, 50}]

Rest[CoefficientList[Series[x (2-4x^2-x^3)/((1-x)^2(1-x-x^2)), {x, 0, 40}], x]] (* or *) LinearRecurrence[{3, -2, -1, 1}, {2, 6, 10, 15}, 40] (* Harvey P. Dale, Jan 04 2013 *)

CROSSREFS

Sequence in context: A190091 A331250 A186783 * A050895 A184426 A293408

Adjacent sequences:  A133928 A133929 A133930 * A133932 A133933 A133934

KEYWORD

nonn,easy

AUTHOR

Roger L. Bagula, Jan 08 2008

EXTENSIONS

New name from Colin Barker and Joerg Arndt, Jun 10 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 30 23:34 EDT 2020. Contains 334747 sequences. (Running on oeis4.)