login
Numbers whose sum of even digits and sum of odd digits differ by 6.
2

%I #13 Feb 22 2021 10:36:16

%S 6,15,24,33,42,51,60,105,118,127,149,150,172,181,194,204,217,222,235,

%T 240,253,271,303,325,330,347,352,369,374,396,402,419,420,437,455,473,

%U 491,501,510,523,532,545,554,567,576,589,598,600,639,657,675,693,712,721,734,743,756

%N Numbers whose sum of even digits and sum of odd digits differ by 6.

%H Carole Dubois, <a href="/A341007/b341007.txt">Table of n, a(n) for n = 1..5001</a>

%t Select[Range[1000], Abs[Plus @@ Select[(d = IntegerDigits[#]), OddQ] - Plus @@ Select[d, EvenQ]] == 6 &] (* _Amiram Eldar_, Feb 02 2021 *)

%Y Cf. A036301 (sums are equal), A341002 to A341010 (sums differ by 1 to 9).

%K base,nonn

%O 1,1

%A _Eric Angelini_ and _Carole Dubois_, Feb 02 2021