login
Sum of even digits less than sum of odd digits.
3

%I #7 Oct 05 2013 05:00:35

%S 0,2,4,6,8,12,14,16,18,20,21,22,24,26,28,34,36,38,40,41,42,43,44,46,

%T 48,56,58,60,61,62,63,64,65,66,68,78,80,81,82,83,84,85,86,87,88,102,

%U 104,106,108,114,116,118,120,122,124,126,128,136,138,140,141,142,144,146

%N Sum of even digits less than sum of odd digits.

%C 0 is assumed as even digit: A005843, A004275, A007928. Sum of even digits equals sum of odd digits A036301.

%t Select[Range[300], Plus@@Select[IntegerDigits[ # ], OddQ]<Plus@@Select[IntegerDigits[ # ], EvenQ]&]

%Y Cf. A005843, A004275, A007928, A036301.

%K nonn,base

%O 1,2

%A _Zak Seidov_, Feb 17 2005