%I #11 Jul 04 2021 18:03:55
%S 1,4,6,11,13,15,19,21,32,34,38,40,42,46,48,56,58,60,64,66,72,89,95,97,
%T 101,103,105,113,115,119,121,123,127,129,137,139,141,145,147,153,167,
%U 169,173,175,177,181,183,191,193,195,199,201
%N Numbers whose base-3 representation has the same number of 0's as 2's.
%t Select[Range@300,(s=#;Differences[Count[IntegerDigits[s,3],#]&/@{0,2}]=={0})&] (* _Giorgos Kalogeropoulos_, Jul 04 2021 *)
%Y Cf. A007089.
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|