|
%I #41 Dec 14 2023 05:10:33
%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
%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
|
