|
%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
|
