OFFSET
0,7
COMMENTS
Floretion Algebra Multiplication Program, FAMP Code: 1lesforzapseq[(.5i' + .5j' + .5'ki' + .5'kj')*(.5'i + .5'j + .5'ik' + .5'jk')], 1vesforzap = A000004
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (0,1,2,-1,0,1,2).
FORMULA
a(0)=1, a(1)=1, a(2)=1, a(3)=0, a(4)=1, a(5)=1, a(6)=3, a(n)=a(n-2)+ 2*a(n-3)- a(n-4)+a(n-6)+2*a(n-7). - Harvey P. Dale, Dec 26 2015
MATHEMATICA
CoefficientList[Series[(x^2+x+1)(2x^2+2x+1)(x-1)^2/((1-x^2-2x^3)(x^4+1)), {x, 0, 50}], x] (* or *) LinearRecurrence[{0, 1, 2, -1, 0, 1, 2}, {1, 1, 1, 0, 1, 1, 3}, 50] (* Harvey P. Dale, Dec 26 2015 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Creighton Dement, May 25 2005
STATUS
approved