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,1

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A122709 A052220 A217747 * A345959 A242405 A064565

Adjacent sequences: A341004 A341005 A341006 * A341008 A341009 A341010

Keyword

base,nonn

Author

Eric Angelini and Carole Dubois, Feb 02 2021

Status

approved