A341002 Numbers whose sum of even digits and sum of odd digits differ by 1.

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

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

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

Adjacent sequences: A340999 A341000 A341001 * A341003 A341004 A341005

Keyword

base,nonn

Author

Eric Angelini and Carole Dubois, Feb 02 2021

Status

approved