|
| |
|
|
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, 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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
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] (* From Harvey P. Dale, Sep 15 2011 *)
|
|
|
PROG
| Floretion Algebra Multiplication Program, FAMP Code: (a_n) = 2ibaseforcycfizseq[ + .5'i + .5'j + .5'k + .5e], A000004 = 1vesforcycfizseq, FizType = ('i, 'j, 'k)
|
|
|
CROSSREFS
| Cf. A108391.
Sequence in context: A011452 A199952 A093781 * A102400 A144860 A113810
Adjacent sequences: A108387 A108388 A108389 * A108391 A108392 A108393
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Creighton Dement (creighton.k.dement(AT)uni-oldenburg.de), Jun 01 2005
|
| |
|
|
