cp's OEIS Frontend

A097325 Period 6: repeat [0, 1, 1, 1, 1, 1].

%I A097325 #58 Dec 14 2023 05:16:39
%S A097325 0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,
%T A097325 1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,
%U A097325 1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1
%N A097325 Period 6: repeat [0, 1, 1, 1, 1, 1].
%C A097325 a(n) is 0 if 6 divides n, 1 otherwise.
%H A097325 Antti Karttunen, <a href="/A097325/b097325.txt">Table of n, a(n) for n = 0..26244</a>
%H A097325 <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>
%H A097325 <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,1).
%F A097325 G.f.: 1/(1-x) - 1/(1-x^6) = Sum_{k>=0} x^k - x^(6*k).
%F A097325 Recurrence: a(n+6) = a(n), a(0) = 0, a(i) = 1, 1 <= i <= 5.
%F A097325 a(n) = (1/4) * (3 - (-1)^n - (-1)^((n+1)/3) - (-1)^((2n+1)/3)).
%F A097325 From _Reinhard Zumkeller_, Nov 30 2009: (Start)
%F A097325 a(n) = 1 - A079979(n).
%F A097325 a(A047253(n)) = 1, a(A008588(n)) = 0.
%F A097325 A033438(n) = Sum_{k=0..n} a(k)*(n-k). (End)
%F A097325 Dirichlet g.f.: (1 - 1/6^s)*zeta(s). - _R. J. Mathar_, Feb 19 2011
%F A097325 For the general case: the characteristic function of numbers that are not multiples of m is a(n) = floor((n-1)/m) - floor(n/m) + 1, m, n > 0. - _Boris Putievskiy_, May 08 2013
%F A097325 a(n) = sign(n mod 6). - _Wesley Ivan Hurt_, Jun 29 2013
%F A097325 a(n) = ceiling(5n/6) - floor(5n/6). - _Wesley Ivan Hurt_, Jun 20 2014
%p A097325 seq(signum(k mod 6), k=0..100); # _Wesley Ivan Hurt_, Jun 29 2013
%t A097325 Table[Boole[Not[Divisible[n, 6]]], {n, 0, 89}] (* _Alonso del Arte_, Oct 21 2013 *)
%t A097325 PadRight[{}, 120, {0, 1, 1, 1, 1, 1}] (* _Michael De Vlieger_, Dec 22 2017 *)
%o A097325 (PARI) a(n) = sign(n%6);
%o A097325 (Magma) [Sign(n mod 6) : n in [0..50]]; // _Wesley Ivan Hurt_, Jun 20 2014
%o A097325 (Scheme) (define (A097325 n) (if (zero? (modulo n 6)) 0 1)) ;; _Antti Karttunen_, Dec 22 2017
%Y A097325 Characteristic sequence of A047253.
%Y A097325 Binary complement of A079979.
%Y A097325 Cf. A010875, A168185, A145568, A168184, A168182, A168181, A109720, A011558, A166486, A011655, A000035.
%K A097325 nonn,easy
%O A097325 0,1
%A A097325 _Ralf Stephan_, Aug 16 2004
%E A097325 New name from _Omar E. Pol_, Oct 21 2013