A103848 Numbers k such that sum of even digits of k is less than sum of odd digits.

1, 3, 5, 7, 9, 10, 11, 13, 15, 17, 19, 23, 25, 27, 29, 30, 31, 32, 33, 35, 37, 39, 45, 47, 49, 50, 51, 52, 53, 54, 55, 57, 59, 67, 69, 70, 71, 72, 73, 74, 75, 76, 77, 79, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 103, 105, 107, 109, 110, 111, 113, 115, 117, 119

Offset

1,2

Comments

Sum of even digits equals sum of odd digits => A036301. Sum of even digits greater than sum of odd digits => A103829

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

Crossrefs

Cf. A036301, A103829.

Sequence in context: A364695 A091066 A277599 * A276137 A079377 A186379

Adjacent sequences: A103845 A103846 A103847 * A103849 A103850 A103851

Keyword

nonn,base

Author

Zak Seidov, Feb 18 2005

Extensions

Mathematica program corrected by Harvey P. Dale, Oct 10 2024

Definition corrected by Robert Israel, Mar 18 2026

Status

approved