|
0, 0, 3, 0, 5, 9, 0, 0, 12, 15, 0, 21, 0, 0, 23, 0, 17, 36, 0, 35, 3, 0, 23, 45, 5, 0, 39, 0, 29, 69, 0, 0, 36, 51, 5, 84, 0, 0, 42, 75, 0, 9, 43, 0, 77, 69, 0, 93, 0, 15, 71, 0, 53, 117, 5, 0, 60, 87, 0, 161, 0, 0, 75, 0, 70
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
a(n) = 0 if there is no evil divisor.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
Total[Select[Divisors@ #, EvenQ@ First@ DigitCount[#, 2] &]] & /@ Range@ 65 (* Michael De Vlieger, Aug 04 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|