login
Numbers whose base-3 representation has one fewer 0 than 2's.
0

%I #10 Jul 05 2021 02:27:41

%S 2,5,7,14,16,20,22,24,35,41,43,47,49,51,59,61,65,67,69,73,75,98,104,

%T 106,116,122,124,128,130,132,140,142,146,148,150,154,156,170,176,178,

%U 182,184,186,194,196,200,202,204,208,210,218,220

%N Numbers whose base-3 representation has one fewer 0 than 2's.

%t Select[Range[250],DigitCount[#,3,0]==DigitCount[#,3,2]-1&] (* _Harvey P. Dale_, Jun 29 2017 *)

%Y Cf. A007089.

%K nonn,base

%O 1,1

%A _Clark Kimberling_