A341010 Numbers whose sum of even digits and sum of odd digits differ by 9.

9, 90, 117, 128, 135, 146, 153, 164, 171, 182, 218, 281, 315, 333, 348, 351, 366, 384, 416, 438, 461, 483, 513, 531, 568, 586, 614, 636, 641, 658, 663, 685, 711, 788, 812, 821, 834, 843, 856, 865, 878, 887, 900, 1017, 1028, 1035, 1046, 1053, 1064, 1071, 1082, 1107, 1129, 1170

Offset

1,1

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A097256 A061478 A061878 * A356748 A140160 A043960

Adjacent sequences: A341007 A341008 A341009 * A341011 A341012 A341013

Keyword

base,nonn

Author

Eric Angelini and Carole Dubois, Feb 02 2021

Status

approved