A103829 Sum of even digits greater than sum of odd digits.

2, 4, 6, 8, 12, 14, 16, 18, 20, 21, 22, 24, 26, 28, 34, 36, 38, 40, 41, 42, 43, 44, 46, 48, 56, 58, 60, 61, 62, 63, 64, 65, 66, 68, 78, 80, 81, 82, 83, 84, 85, 86, 87, 88, 102, 104, 106, 108, 114, 116, 118, 120, 122, 124, 126, 128, 136, 138, 140, 141, 142, 144, 146

Offset

1,1

Comments

0 is assumed as even digit: A005843, A004275, A007928. Sum of even digits equals sum of odd digits A036301.

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

filter:= proc(n) local t;
  add(t * (-1)^t, t = convert(n, base, 10)) > 0
end proc:
select(filter, [$1..300]); # Robert Israel, Mar 18 2026

Mathematica

Select[Range[300], Plus@@Select[IntegerDigits[ # ], OddQ]<Plus@@Select[IntegerDigits[ # ], EvenQ]&]

Prog

(Python)
from itertools import count, islice
def eodiff(n): return sum(d*(-1)**(d&1) for d in list(map(int, str(n))))
def A103829_gen(): yield from (t for t in count(0) if eodiff(t) > 0)
print(list(islice(A103829_gen(), 63))) # Michael S. Branicky, Jun 13 2026

Crossrefs

Cf. A005843, A004275, A007928, A036301, A103848, A103849.

Sequence in context: A350355 A172311 A383473 * A164530 A058817 A328593

Adjacent sequences: A103826 A103827 A103828 * A103830 A103831 A103832

Keyword

nonn,base,changed

Author

Zak Seidov, Feb 17 2005

Extensions

Corrected by Robert Israel, Mar 18 2026

Status

approved