The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 Mar 11 2024 07:20:01
%S 1,4,5,7,10,12,13,14,16,22,31,32,34,37,38,39,40,41,42,43,44,46,48,49,
%T 50,52,58,64,66,67,68,70,76,85,91,93,94,95,97,98,103,104,106,109,111,
%U 112,113,115,116,117,118,119,120,121,122,123,124,125,127,128
%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, A370860, A370862.
%K nonn,base
%O 1,2
%A _Clark Kimberling_, Mar 03 2024