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

%I #23 Feb 23 2021 11:42:24

%S 8,17,26,35,44,53,62,71,80,107,129,170,192,206,219,224,237,242,255,

%T 260,273,291,305,327,349,350,372,394,404,422,439,440,457,475,493,503,

%U 525,530,547,552,569,574,596,602,620,659,677,695,701,710,723,732,745,754,767,776,789

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

%H Carole Dubois, <a href="/A341009/b341009.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]] == 8 &] (* _Amiram Eldar_, Feb 02 2021 *)

%o (Python)

%o def eodiff(n):

%o digs = list(map(int, str(n)))

%o return abs(sum(d for d in digs if d%2==0)-sum(d for d in digs if d%2==1))

%o def aupto(lim): return [m for m in range(lim+1) if eodiff(m) == 8]

%o print(aupto(789)) # _Michael S. Branicky_, Feb 21 2021

%Y Cf. A009994, 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