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

6, 15, 24, 33, 42, 51, 60, 105, 118, 127, 149, 150, 172, 181, 194, 204, 217, 222, 235, 240, 253, 271, 303, 325, 330, 347, 352, 369, 374, 396, 402, 419, 420, 437, 455, 473, 491, 501, 510, 523, 532, 545, 554, 567, 576, 589, 598, 600, 639, 657, 675, 693, 712, 721, 734, 743, 756

Offset: 1

Author

Eric Angelini and Carole Dubois, Feb 02 2021

Keywords

• base
• nonn

Links

• Carole Dubois, Table of n, a(n) for n = 1..5001

Crossrefs

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

Programs

Mathematica

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