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,2

Links

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

Mathematica

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

Prog

(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

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).

Sequence in context: A053198 A249278 A273892 * A179082 A341869 A194376

Adjacent sequences: A352543 A352544 A352545 * A352547 A352548 A352549

Keyword

nonn,base

Author

M. F. Hasler, Jul 03 2022

Status

approved