A059508 Transform of A059502 applied to sequence 5,6,7,...

5, 11, 29, 79, 216, 590, 1609, 4381, 11911, 32339, 87690, 237496, 642509, 1736399, 4688081, 12645655, 34080924, 91775426, 246948241, 663999649, 1784138875, 4790751131, 12856028814, 34478744044, 92416515221

Offset: 1

Author

Floor van Lamoen, Jan 19 2001

Keywords

• easy
• nonn

Comments

The fifth row of the array A059503.

Links

• G. C. Greubel, Table of n, a(n) for n = 1..1000
• Index entries for sequences related to boustrophedon transform
• Index entries for linear recurrences with constant coefficients, signature (6,-11,6,-1).

Crossrefs

Cf. A000667, A059216, A059219, A059502, A059503.

Programs

Mathematica

Rest[CoefficientList[Series[x*(1-x)*(4*x^2 - 14*x + 5)/(x^2 - 3*x + 1)^2, {x, 0, 50}], x]] (* G. C. Greubel, Sep 10 2017 *)

PARI

Vec(-x*(x-1)*(4*x^2-14*x+5)/(x^2-3*x+1)^2 + O(x^40)) \\ Michel Marcus, Sep 09 2017

Formula

From Colin Barker, Nov 30 2012: (Start)

a(n) = 6*a(n-1) - 11*a(n-2) + 6*a(n-3) - a(n-4).

G.f.: x*(1-x)*(4*x^2-14*x+5)/(x^2-3*x+1)^2. (End)

a(n) = ((3 - n)*Fibonacci(2*n) + (20 + 3*n)*Fibonacci(2*n - 1))/5. - G. C. Greubel, Sep 10 2017