cp's OEIS Frontend

A158001 Period 6: repeat [9, 10, 9, 4, 4, 1].

%I A158001 #17 Dec 12 2023 08:08:20
%S A158001 9,10,9,4,4,1,9,10,9,4,4,1,9,10,9,4,4,1,9,10,9,4,4,1,9,10,9,4,4,1,9,
%T A158001 10,9,4,4,1,9,10,9,4,4,1,9,10,9,4,4,1,9,10,9,4,4,1,9,10,9,4,4,1,9,10,
%U A158001 9,4,4,1,9,10,9,4,4,1,9,10,9,4,4,1,9,10,9,4,4,1,9,10,9,4,4,1,9,10,9,4,4,1
%N A158001 Period 6: repeat [9, 10, 9, 4, 4, 1].
%H A158001 Vincenzo Librandi, <a href="/A158001/b158001.txt">Table of n, a(n) for n = 1..1000</a>
%H A158001 <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,1).
%F A158001 From _Wesley Ivan Hurt_, Jun 18 2016: (Start)
%F A158001 G.f.: x*(9+10*x+9*x^2+4*x^3+4*x^4+x^5)/(1-x^6).
%F A158001 a(n) = a(n-6) for n > 6.
%F A158001 a(n) = (37 - 7*cos(n*Pi) - 17*cos(n*Pi/3) - 7*cos(2*n*Pi/3) + 11*sqrt(3)*sin(n*Pi/3) - sqrt(3)*sin(2*n*Pi/3))/6. (End)
%p A158001 A158001:=n->[9, 10, 9, 4, 4, 1][(n mod 6)+1]: seq(A158001(n), n=0..100); # _Wesley Ivan Hurt_, Jun 18 2016
%t A158001 Flatten[Table[{9, 10, 9, 4, 4, 1}, {20}]] (* _Wesley Ivan Hurt_, Jun 18 2016 *)
%t A158001 PadRight[{}, 100, {9, 10, 9, 4, 4, 1}] (* _Vincenzo Librandi_, Jun 19 2016 *)
%o A158001 (Magma) &cat[[9, 10, 9, 4, 4, 1]^^20]; // _Wesley Ivan Hurt_, Jun 18 2016
%Y A158001 Cf. A157763, A156755.
%K A158001 nonn,easy
%O A158001 1,1
%A A158001 _Paul Curtz_, Mar 11 2009