OFFSET
0,3
COMMENTS
Floretion Algebra Multiplication Program, FAMP Code: 4jbasesumseq[A*B+B*A] with A = + .25'i + .25i' + .25'ii' + .25'jj' + .25'kk' + .25'jk' + .25'kj' + .25e and B = + .5'i - .5'k - .5'jj' - .5'ji' - .5'jk' + .5e
LINKS
Index entries for linear recurrences with constant coefficients, signature (-1,0,0,0,0,0,0,0,-1,-1).
MATHEMATICA
CoefficientList[Series[(x-1)(x^2+1)(x^7-x^6+x^4+x^3-2x^2-x-1)/((x^2-x+ 1) (x^6-x^3+1)(x+1)^2), {x, 0, 80}], x] (* or *) Join[{1}, LinearRecurrence[ {-1, 0, 0, 0, 0, 0, 0, 0, -1, -1}, {-1, 3, -6, 7, -9, 10, -11, 13, -16, 17}, 80]] (* Harvey P. Dale, Apr 17 2014 *)
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Creighton Dement, Jun 02 2005
STATUS
approved