|
%I #16 Mar 15 2024 14:24:54
%S 1,-1,3,-6,7,-9,10,-11,13,-16,17,-19,22,-23,25,-26,27,-29,32,-33,35,
%T -38,39,-41,42,-43,45,-48,49,-51,54,-55,57,-58,59,-61,64,-65,67,-70,
%U 71,-73,74,-75,77,-80,81,-83,86,-87,89,-90,91,-93,96,-97,99,-102,103,-105,106,-107,109,-112,113,-115,118,-119,121,-122
%N G.f. (x-1)*(x^2+1)*(x^7-x^6+x^4+x^3-2*x^2-x-1)/((x^2-x+1)*(x^6-x^3+1)*(x+1)^2).
%C 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
%H <a href="/index/Rec#order_10">Index entries for linear recurrences with constant coefficients</a>, signature (-1,0,0,0,0,0,0,0,-1,-1).
%t 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 *)
%K sign,easy
%O 0,3
%A _Creighton Dement_, Jun 02 2005
|
