login
A111571
a(n) = a(n-1) + a(n-3) + a(n-4), n >= 4.
5
1, 1, -2, -1, 1, 0, -3, -3, -2, -5, -11, -16, -23, -39, -66, -105, -167, -272, -443, -715, -1154, -1869, -3027, -4896, -7919, -12815, -20738, -33553, -54287, -87840, -142131, -229971, -372098, -602069, -974171, -1576240, -2550407, -4126647, -6677058, -10803705
OFFSET
0,3
COMMENTS
See comment and FAMP code for A111569.
Floretion Algebra Multiplication Program, FAMP Code: 1jesseq[B+H] with B = - .25'i + .25'j - .25i' + .25j' + k' - .5'kk' - .25'ik' - .25'jk' - .25'ki' - .25'kj' - .5e and H = + .75'ii' + .75'jj' + .75'kk' + .75e
FORMULA
G.f.: (-1+3*x^2)/((1+x^2)*(x^2+x-1)).
MATHEMATICA
LinearRecurrence[{1, 0, 1, 1}, {1, 1, -2, -1}, 40] (* or *) CoefficientList[ Series[ (-1+3*x^2)/((1+x^2)*(x^2+x-1)), {x, 0, 40}], x] (* Harvey P. Dale, Apr 23 2011 *)
KEYWORD
easy,sign
AUTHOR
Creighton Dement, Aug 10 2005
STATUS
approved