login
Period 6: repeat [0, 0, 1, 1, 1, 1].
2

%I #16 Dec 12 2023 09:07:55

%S 0,0,1,1,1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,1,1,

%T 1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,

%U 1,1,1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,1

%N Period 6: repeat [0, 0, 1, 1, 1, 1].

%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (1,-1,1,-1,1).

%F G.f.: -(x^2+1)*x^2/(x-1)/(x^2+x+1)/(x^2-x+1). - _R. J. Mathar_, Nov 14 2007

%F a(n) = 2/3-(1/2)*cos((1/3)*Pi*n)-(1/6)*3^(1/2)*sin((1/3)*Pi*n)-(1/6)*cos((2/3)*Pi*n)-(1/6)*3^(1/2)*sin((2/3)*Pi*n). - _R. J. Mathar_, Nov 15 2007

%F a(n) = A131719(n-1), n>0. - _R. J. Mathar_, Jun 13 2008

%t PadRight[{},120,{0,0,1,1,1,1}] (* or *) LinearRecurrence[{1,-1,1,-1,1},{0,0,1,1,1},120] (* _Harvey P. Dale_, Jun 17 2015 *)

%Y Cf. A131719.

%K nonn

%O 0,1

%A _Paul Curtz_, Sep 19 2007