A341004 Numbers whose sum of even digits and sum of odd digits differ by 3.

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

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]] == 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

Adjacent sequences: A341001 A341002 A341003 * A341005 A341006 A341007

Keyword

base,nonn

Author

Eric Angelini and Carole Dubois, Feb 02 2021

Status

approved