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
Programs
-
Mathematica
Select[Range[300], Plus@@Select[IntegerDigits[ # ], OddQ]>Plus@@Select[IntegerDigits[ # ], EvenQ]&]
Extensions
Mathematica program corrected by Harvey P. Dale, Oct 10 2024
Comments