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