|
%I #4 Mar 12 2024 22:30:28
%S 6,18,20,24,29,33,45,54,55,56,57,60,62,63,72,74,78,83,87,89,99,101,
%T 105,135,137,141,153,162,163,164,165,167,168,169,170,171,173,177,180,
%U 181,182,183,186,188,189,191,195,207,216,217,218,219,222,224,225,234
%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, A370853, A370859, A370863, A370864, A370866.
%K nonn,base
%O 1,1
%A _Clark Kimberling_, Mar 11 2024
|
