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
KEYWORD
nonn,base,changed
AUTHOR
M. F. Hasler, Jul 03 2022
STATUS
approved