OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[300], Plus@@Select[IntegerDigits[ # ], OddQ]>Plus@@Select[IntegerDigits[ # ], EvenQ]&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Feb 18 2005
EXTENSIONS
Mathematica program corrected by Harvey P. Dale, Oct 10 2024
STATUS
approved