|
%I #23 Sep 08 2022 08:45:50
%S 1,-1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,
%T -1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,-1,
%U 3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1,-1,3,-2,-1
%N 1 followed by period 4: repeat [-1, 3, -2, -1].
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,1).
%F From _Wesley Ivan Hurt_, Jul 08 2016: (Start)
%F G.f.: x*(1-x+3*x^2-2*x^3-2*x^4)/(1-x^4).
%F a(n) = a(n-4) for n>5.
%F a(n) = (5*I^(2*n) - 1 - (4-I)*I^(-n) - (4+I)*I^n)/4 for n>1. (End)
%p 1,seq(op([-1, 3, -2, -1]), n=1..30); # _Wesley Ivan Hurt_, Jul 08 2016
%t Join[{1}, PadRight[{}, 100, {-1, 3, -2, -1}]] (* _Wesley Ivan Hurt_, Jul 08 2016 *)
%o (Magma) [1] cat &cat [[-1, 3, -2, -1]^^30]; // _Wesley Ivan Hurt_, Jul 08 2016
%o (PARI) Vec(x*(1-x+3*x^2-2*x^3-2*x^4)/(1-x^4) + O(x^99)) \\ _Altug Alkan_, Jul 08 2016
%K sign,less,easy
%O 1,3
%A L. Naing (lnaing.yangon_univ(AT)yahoo.in), Jan 29 2010
%E Edited by _Joerg Arndt_, Sep 04 2011
|
