%I #44 Jul 26 2024 16:15:16

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

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

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

%N a(n) = (n mod 2)^(n mod 3).

%C This is a periodic sequence with period 6. The repeating block is 1,1,0,1,0,1. - _Michel Dekking_, Sep 19 2020

%H Antti Karttunen, <a href="/A093719/b093719.txt">Table of n, a(n) for n = 0..65537</a>

%H <a href="/index/Ch#char_fns">Index entries for characteristic functions</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 a(n) = A000035(n)^A010872(n).

%F a(A047273(n)) = 1, a(A047235(n)) = 0. [_Reinhard Zumkeller_, Oct 01 2008]

%F G.f.: -(x^5 + x^3 + x + 1)/(x^6 - 1). - _Colin Barker_, Apr 01 2013

%F E.g.f.: (2*cos(sqrt(3)*x/2)*cosh(x/2) + cosh(x))/3 + sinh(x). - _Stefano Spezia_, Jul 26 2024

%p A093719:=n->(n mod 2)^(n mod 3): seq(A093719(n), n=0..40); # _Wesley Ivan Hurt_, Oct 13 2014

%t PadRight[{},120,{1,1,0,1,0,1}] (* _Harvey P. Dale_, Jun 26 2021 *)

%o (Magma) [(n mod 2)^(n mod 3): n in [0..100]]; // _Wesley Ivan Hurt_, Oct 13 2014

%o (PARI) A093719(n) = ((n%2)^(n%3)); \\ _Antti Karttunen_, Dec 19 2018

%o (GAP) List([0..120],n->(n mod 2)^(n mod 3)); # _Muniru A Asiru_, Dec 19 2018

%Y Cf. A000035, A010872, A047235, A047273, A093718.

%K nonn,easy

%O 0,1

%A _Reinhard Zumkeller_, Apr 12 2004