|
%I #12 Mar 13 2024 19:26:26
%S 0,-1,-5,-4,2,1,1,-6,0,3,3,0,-2,1,5,2,-4,-1,-1,4,-2,-3,-3,-2,0,-1,-5,
%T -4,2,1,1,-6,0,3,3,0,-2,1,5,2,-4,-1,-1,4,-2,-3,-3,-2,0,-1,-5,-4,2,1,1,
%U -6,0,3,3,0,-2,1,5,2,-4,-1,-1,4,-2,-3,-3,-2,0,-1,-5,-4,2,1,1,-6,0,3,3,0,-2,1,5,2,-4,-1
%N Period 24.
%C Floretion Algebra Multiplication Program, FAMP Code: 2tessumseq[ + .5'k + .5i' + .5j' + .5'kk'], sumtype: (Y[15], *, sum)
%H <a href="/index/Rec#order_15">Index entries for linear recurrences with constant coefficients</a>, signature (1,-1,1,0,0,0,0,0,0,0,0,-1,1,-1,1).
%F G.f.: x*(1 + 4*x - 2*x^3 - 6*x^5 + 8*x^6 - 6*x^7 + 4*x^8 - 6*x^9 + 2*x^11 + x^12 + 2*x^13)/((x - 1)*(x^2 + 1)*(x^4 + 1)*(x^8 - x^4 + 1)).
%t LinearRecurrence[{1, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1, -1, 1}, {0, -1, -5, -4, 2, 1, 1, -6, 0, 3, 3, 0, -2, 1, 5}, 100] (* _Jinyuan Wang_, Feb 28 2020 *)
%K easy,sign
%O 0,3
%A _Creighton Dement_, Aug 26 2005
|
