login
A341010
Numbers whose sum of even digits and sum of odd digits differ by 9.
10
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
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
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Carole Dubois, Feb 02 2021
STATUS
approved