|
%I #7 Mar 11 2024 07:19:04
%S 2,6,8,18,20,24,26,35,47,51,54,56,59,60,61,62,65,69,72,73,74,75,78,80,
%T 89,101,105,107,137,141,143,153,155,159,162,164,167,168,169,170,173,
%U 177,179,180,181,182,183,185,186,187,188,191,195,197,207,209,213
%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, A370863, A370865, A370866.
%K nonn,base
%O 1,1
%A _Clark Kimberling_, Mar 09 2024
|
