OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[300], Plus@@Select[IntegerDigits[ # ], OddQ]<Plus@@Select[IntegerDigits[ # ], EvenQ]&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Feb 17 2005
STATUS
approved