A103848 Numbers n such that sum of even digits of n is larger than sum of odd digits.

1, 3, 5, 7, 9, 10, 11, 13, 15, 17, 19, 23, 25, 27, 29, 30, 31, 32, 33, 35, 37, 39, 45, 47, 49, 50, 51, 52, 53, 54, 55, 57, 59, 67, 69, 70, 71, 72, 73, 74, 75, 76, 77, 79, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 103, 105, 107, 109, 110, 111, 113, 115, 117, 119

Offset: 1

Author

Zak Seidov, Feb 18 2005

Keywords

• nonn
• base

Comments

Sum of even digits equals sum of odd digits => A036301. Sum of even digits less than sum of odd digits => A103829

Crossrefs

Cf. A036301, A103829.

Programs

Mathematica

Select[Range[300], Plus@@Select[IntegerDigits[ # ], OddQ]>Plus@@Select[IntegerDigits[ # ], EvenQ]&]

Extensions

Mathematica program corrected by Harvey P. Dale, Oct 10 2024