|
%I #29 Sep 23 2018 21:25:34
%S 0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,
%T 1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,
%U 1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1
%N Characteristic function of numbers that are not multiples of 12.
%C a(n+12) = a(n);
%C a(n) = A000007(A010881(n));
%C a(A168186(n)) = 1; a(A008594(n)) = 0;
%C A033444(n) = Sum_{k=0..n} a(k)*(n-k).
%H Antti Karttunen, <a href="/A168185/b168185.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_12">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,0,0,0,0,0,0,1).
%F 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
%p a:=n->`if`(modp(n,12)=0,0,1); seq(a(n),n=0..150); # _Muniru A Asiru_, Sep 21 2018
%t If[Divisible[#,12],0,1]&/@Range[0,120] (* _Harvey P. Dale_, Apr 03 2015 *)
%o (PARI) a(n)=!!(n%12) \\ _Charles R Greathouse IV_, Aug 21 2011
%Y Cf. A010881, A145568, A168184, A168182, A168181, A109720, A097325, A011558, A166486, A011655, A000035.
%K nonn,easy
%O 0,1
%A _Reinhard Zumkeller_, Nov 30 2009
|
