%I #14 Feb 23 2021 05:28:06

%S 1,10,12,21,23,32,34,43,45,54,56,65,67,76,78,87,89,98,100,102,120,201,

%T 203,210,223,225,230,232,245,247,252,254,267,269,274,276,289,296,298,

%U 302,304,320,322,340,403,405,425,427,430,447,449,450,452,469,472,474,494,496,504

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

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

%A _Eric Angelini_ and _Carole Dubois_, Feb 02 2021