A370872 - 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