%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