login
A341002
Numbers whose sum of even digits and sum of odd digits differ by 1.
14
1, 10, 12, 21, 23, 32, 34, 43, 45, 54, 56, 65, 67, 76, 78, 87, 89, 98, 100, 102, 120, 201, 203, 210, 223, 225, 230, 232, 245, 247, 252, 254, 267, 269, 274, 276, 289, 296, 298, 302, 304, 320, 322, 340, 403, 405, 425, 427, 430, 447, 449, 450, 452, 469, 472, 474, 494, 496, 504
OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[1000], Abs[Plus @@ Select[(d = IntegerDigits[#]), OddQ] - Plus @@ Select[d, EvenQ]] == 1 &] (* Amiram Eldar, Feb 02 2021 *)
CROSSREFS
Cf. A036301 (sums are equal), A341002 to A341010 (sums differ by 1 to 9).
Sequence in context: A082927 A108965 A366958 * A175885 A061870 A348056
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Carole Dubois, Feb 02 2021
STATUS
approved