|
|
A168185
|
|
Characteristic function of numbers that are not multiples of 12.
|
|
12
|
|
|
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, 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, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
a(n+12) = a(n);
A033444(n) = Sum_{k=0..n} a(k)*(n-k).
|
|
LINKS
|
Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,0,0,0,0,0,0,1).
|
|
FORMULA
|
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
|
|
MAPLE
|
a:=n->`if`(modp(n, 12)=0, 0, 1); seq(a(n), n=0..150); # Muniru A Asiru, Sep 21 2018
|
|
MATHEMATICA
|
If[Divisible[#, 12], 0, 1]&/@Range[0, 120] (* Harvey P. Dale, Apr 03 2015 *)
|
|
PROG
|
|
|
CROSSREFS
|
Cf. A010881, A145568, A168184, A168182, A168181, A109720, A097325, A011558, A166486, A011655, A000035.
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|