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

%I #13 Feb 23 2021 04:54:42

%S 2,11,20,101,110,114,123,132,136,141,145,154,158,163,167,176,185,189,

%T 198,200,213,231,312,316,321,334,338,343,356,361,365,378,383,387,411,

%U 415,433,451,514,518,536,541,558,563,581,585,613,617,631,635,653,671,716,738,761,783

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

%H Carole Dubois, <a href="/A341003/b341003.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]] == 2 &] (* _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