|
%I #9 Mar 15 2024 21:30:58
%S 3,9,11,15,19,21,27,28,29,30,33,36,45,55,57,63,81,82,83,84,86,87,88,
%T 90,92,96,99,100,102,108,110,114,126,135,136,138,144,163,165,166,171,
%U 172,174,189,190,192,198,243,244,245,246,247,248,249,250,252,253
%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, A370872.
%K nonn,base
%O 1,1
%A _Clark Kimberling_, Mar 13 2024
|
