%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