%I #20 Dec 14 2023 05:30:59
%S 1,1,1,0,2,0,1,1,1,0,2,0,1,1,1,0,2,0,1,1,1,0,2,0,1,1,1,0,2,0,1,1,1,0,
%T 2,0,1,1,1,0,2,0,1,1,1,0,2,0,1,1,1,0,2,0,1,1,1,0,2,0,1,1,1,0,2,0,1,1,
%U 1,0,2,0
%N Period 6: repeat [1,1,1,0,2,0].
%C Diagonal sums of number triangle A115356.
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (-1,0,1,1).
%F G.f.: (1+2*x+2*x^2)/(1+x-x^3-x^4).
%F a(n) = -a(n-1)+a(n-3)+a(n-4).
%F a(n) = -cos(2*Pi*n/3+Pi/6)/sqrt(3)+sin(2*Pi*n/3+Pi/6)/3+(-1)^n/2+5/6.
%F Sequence shifted right by 2 is additive with a(p^e) = 1 if p = 2 or 3, 0 otherwise.
%t PadRight[{},120,{1,1,1,0,2,0}] (* or *) LinearRecurrence[{-1,0,1,1},{1,1,1,0},120] (* _Harvey P. Dale_, Jan 28 2015 *)
%Y Cf. A171182. [From _Juri-Stepan Gerasimov_, Dec 04 2009]
%Y Cf. A115356.
%K easy,nonn
%O 0,5
%A _Paul Barry_, Jan 21 2006