login
A341004
Numbers whose sum of even digits and sum of odd digits differ by 3.
2
3, 14, 25, 30, 36, 41, 47, 52, 58, 63, 69, 74, 85, 96, 104, 111, 122, 140, 205, 212, 221, 227, 234, 243, 249, 250, 256, 265, 272, 278, 287, 294, 300, 306, 324, 342, 360, 401, 407, 410, 423, 429, 432, 445, 454, 467, 470, 476, 489, 492, 498, 502, 508, 520, 526, 544, 562, 580
OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[1000], Abs[Plus @@ Select[(d = IntegerDigits[#]), OddQ] - Plus @@ Select[d, EvenQ]] == 3 &] (* Amiram Eldar, Feb 02 2021 *)
CROSSREFS
Cf. A036301 (sums are equal), A341002 to A341010 (sums differ by 1 to 9).
Sequence in context: A019033 A171789 A061872 * A017425 A302758 A063098
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Carole Dubois, Feb 02 2021
STATUS
approved