%I #8 Mar 11 2024 07:19:08
%S 6,18,20,24,54,56,60,62,72,74,78,89,101,105,137,141,153,162,164,167,
%T 168,169,170,173,177,180,181,182,183,186,188,191,195,207,216,217,218,
%U 219,222,224,225,234,236,240,251,263,267,269,299,303,305,315,317,321
%N Numbers 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 20 is 202, for which c(0)=1 > c(1)=0 < c(2)=2.
%t Select[Range[1000], DigitCount[#, 3, 0] > DigitCount[#, 3, 1] < DigitCount[#, 3, 2] &]
%Y Cf. A007089, A077267, A062756, A081603.
%Y Cf. A370853, A370859, A370864, A370865, A370866, A370870.
%K nonn,base
%O 1,1
%A _Clark Kimberling_, Mar 09 2024
|