A108390 Expansion of (-1-x-x^2-4*x^3-4*x^4+4*x^5+x^6+x^7+x^8) / ((x+1)*(x^2-x+1)*(x^2+x-1)*(x^4-x^3+2*x^2+x+1)).

1, 1, 1, 7, 7, -1, 25, 25, 1, 111, 111, -1, 465, 465, 1, 1975, 1975, -1, 8361, 8361, 1, 35423, 35423, -1, 150049, 150049, 1, 635623, 635623, -1, 2692537, 2692537, 1, 11405775, 11405775, -1, 48315633, 48315633, 1, 204668311, 204668311, -1, 866988873, 866988873, 1, 3672623807, 3672623807, -1

Offset

0,4

Comments

Floretion Algebra Multiplication Program, FAMP Code: (a_n) = 2ibaseforcycfizseq[ + .5'i + .5'j + .5'k + .5e], A000004 = 1vesforcycfizseq, FizType = ('i, 'j, 'k)

Links

Colin Barker, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (0,0,3,0,0,5,0,0,1).

Formula

a(n) = 3*a(n-3) + 5*a(n-6) + a(n-9) for n>8. - Colin Barker, May 12 2019

Mathematica

CoefficientList[Series[(-1-x-x^2-4x^3-4x^4+4x^5+x^6+x^7+x^8)/ ((x+1) (x^2-x+1)(x^2+x-1)(x^4-x^3+2x^2+x+1)), {x, 0, 50}], x] (* Harvey P. Dale, Sep 15 2011 *)

Prog

(PARI) Vec((-1-x-x^2-4*x^3-4*x^4+4*x^5+x^6+x^7+x^8)/((x+1)*(x^2-x+1)*(x^2+x-1)*(x^4-x^3+2*x^2+x+1))+O(x^99)) \\ Charles R Greathouse IV, Sep 27 2012

Crossrefs

Cf. A108391.

Sequence in context: A232649 A232650 A365672 * A102400 A144860 A113810

Adjacent sequences: A108387 A108388 A108389 * A108391 A108392 A108393

Keyword

sign,easy

Author

Creighton Dement, Jun 01 2005

Status

approved