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
Links
- Paolo Xausa, Table of n, a(n) for n = 1..10000
Crossrefs
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
Comments