login
A103848
Numbers n such that sum of even digits of n is larger than sum of odd digits.
2
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,2
COMMENTS
Sum of even digits equals sum of odd digits => A036301. Sum of even digits less than sum of odd digits => A103829
MATHEMATICA
Select[Range[300], Plus@@Select[IntegerDigits[ # ], OddQ]>Plus@@Select[IntegerDigits[ # ], EvenQ]&]
CROSSREFS
Sequence in context: A364695 A091066 A277599 * A276137 A079377 A186379
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Feb 18 2005
EXTENSIONS
Mathematica program corrected by Harvey P. Dale, Oct 10 2024
STATUS
approved