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

Author

Juri-Stepan Gerasimov, Aug 04 2015

Keywords

• nonn
• base
• easy

Comments

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

Examples

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

Links

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

Crossrefs

Cf. A001969, A227873, A000203.

Programs

Mathematica

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

Formula

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

Extensions

Edited by Wolfdieter Lang, Aug 23 2015