A352546 Numbers having more even than odd digits when written in base 10.

0, 2, 4, 6, 8, 20, 22, 24, 26, 28, 40, 42, 44, 46, 48, 60, 62, 64, 66, 68, 80, 82, 84, 86, 88, 100, 102, 104, 106, 108, 120, 122, 124, 126, 128, 140, 142, 144, 146, 148, 160, 162, 164, 166, 168, 180, 182, 184, 186, 188, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 212

Offset: 1

Author

M. F. Hasler, Jul 03 2022

Keywords

• nonn
• base

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A196563, A196564.

Cf. A072603 (same in base 2).

Cf. A117076 (subsequence of primes).

Cf. A352547 (numbers having more odd than even decimal digits).

Programs

Mathematica

A352546Q[k_] := Length[#] > 2*Count[#, _?OddQ] & [IntegerDigits[k]];
Select[Range[0, 300], A352546Q] (* Paolo Xausa, Nov 28 2024 *)

PARI

select( {is_A352546(n)=vecsum(n=digits(n)%2)*2<#n+!n}, [0..222])

Python

def ok(n): return len(s:=str(n)) < 2*sum(1 for c in s if c in "02468")
print([k for k in range(213) if ok(k)]) # Michael S. Branicky, Jul 03 2022