A260934 Sum of evil divisors of n. For evil numbers see A001969.

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

Offset

1,3

Comments

a(n) = 0 if there is no evil divisor.

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(n) = A000203(n) - A227873(n). - Vladimir Shevelev, Oct 25 2013.

Example

a(6) = A000203(6) - A227873(6) = 12 - 3 = 9.

Mathematica

Total[Select[Divisors@ #, EvenQ@ First@ DigitCount[#, 2] &]] & /@ Range@ 65 (* Michael De Vlieger, Aug 04 2015 *)

Crossrefs

Cf. A001969, A227873, A000203.

Sequence in context: A103229 A181835 A076296 * A143280 A326988 A088521

Adjacent sequences: A260931 A260932 A260933 * A260935 A260936 A260937

Keyword

nonn,base,easy

Author

Juri-Stepan Gerasimov, Aug 04 2015

Extensions

Edited by Wolfdieter Lang, Aug 23 2015

Status

approved