login
A341006
Numbers whose sum of even digits and sum of odd digits differ by 5.
2
5, 16, 27, 38, 49, 50, 61, 72, 83, 94, 106, 113, 124, 131, 142, 160, 207, 214, 229, 236, 241, 258, 263, 270, 285, 292, 308, 311, 326, 344, 362, 380, 409, 412, 421, 434, 443, 456, 465, 478, 487, 490, 500, 528, 546, 564, 582, 601, 610, 623, 632, 645, 654, 667, 676, 689, 698, 702
OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[1000], Abs[Plus @@ Select[(d = IntegerDigits[#]), OddQ] - Plus @@ Select[d, EvenQ]] == 5 &] (* Amiram Eldar, Feb 02 2021 *)
CROSSREFS
Cf. A036301 (sums are equal), A341002 to A341010 (sums differ by 1 to 9).
Sequence in context: A335416 A018197 A061874 * A017449 A056736 A063236
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Carole Dubois, Feb 02 2021
STATUS
approved