%I #9 Jul 04 2021 17:44:41
%S 26,53,71,77,79,134,152,158,160,188,206,212,214,224,230,232,236,238,
%T 240,323,377,395,401,403,431,449,455,457,467,473,475,479,481,483,539,
%U 557,563,565,593,611,617,619,629,635,637,641,643
%N Numbers whose base-3 representation has 3 fewer 0's than 2's.
%t Select[Range@700,(s=#;Differences[Count[IntegerDigits[s,3],#]&/@{0,2}]=={3})&] (* _Giorgos Kalogeropoulos_, Jul 04 2021 *)
%Y Cf. A007089.
%K nonn,base
%O 1,1
%A _Clark Kimberling_