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

1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 31, 33, 35, 37, 39, 51, 53, 55, 57, 59, 71, 73, 75, 77, 79, 91, 93, 95, 97, 99, 101, 103, 105, 107, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 121, 123, 125, 127, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 141, 143, 145, 147, 149, 150, 151, 152, 153, 154, 155

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. A072600 (same in base 2).

Cf. A227870, A352546 (numbers with fewer odd than even decimal digits).

Programs

Mathematica

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

PARI

select( {is_A352547(n)=vecsum(n=digits(n)%2)*2>#n}, [0..155])

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(156) if ok(k)]) # Michael S. Branicky, Jul 03 2022