Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #7 Mar 17 2024 04:08:07
%S 9,27,29,33,45,55,57,63,81,82,83,84,87,90,99,108,135,163,165,171,189,
%T 243,244,245,246,248,249,250,252,254,258,261,262,264,270,272,276,288,
%U 297,298,300,306,324,326,330,342,378,405,406,408,414,432,487,489,490
%N Positive integers m such that c(0) > c(1) >= c(2), where c(k) = number of k's in the ternary representation of m.
%e The ternary representation of 84 is 10010, for which c(0)=3 > c(1)=2 >= c(2)=0.
%t Select[Range[1000], DigitCount[#, 3, 0] > DigitCount[#, 3, 1] >= DigitCount[#, 3, 2] &]
%Y Cf. A007089, A077267, A062756, A081603.
%Y Cf. A370870, A370871, A370873.
%K nonn,base
%O 1,1
%A _Clark Kimberling_, Mar 13 2024