A370860 - OEIS

%I #11 Mar 11 2024 07:19:45

%S 1,3,4,10,12,13,14,16,22,28,30,31,32,34,36,37,38,39,40,41,42,43,46,48,

%T 49,58,64,66,67,85,86,88,91,92,93,94,95,96,97,100,102,103,109,110,111,

%U 112,113,114,115,117,118,119,120,121,122,123,124,125,126,127

%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 16 is 121, for which c(0)=0 <= c(1)=2 > c(2)=1.

%t Select[Range[1000], DigitCount[#, 3, 0] <= DigitCount[#, 3, 1] > DigitCount[#, 3, 2] &]

%Y Cf. A007089, A077267, A062756, A081603.

%Y Cf. A370853, A370859, A370861, A370862.

%K nonn,base

%O 1,2

%A _Clark Kimberling_, Mar 03 2024