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 #10 Mar 12 2024 20:12:43
%S 1,3,4,5,7,10,11,12,13,14,15,16,19,21,22,28,30,31,32,34,36,37,38,39,
%T 40,41,42,43,44,46,48,49,50,52,58,64,66,67,68,70,76,85,86,88,91,92,93,
%U 94,95,96,97,98,100,102,103,104,106,109,110,111,112,113,114
%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 15 is 120, for which c(0)=1 <= c(1)=1 >= 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, A370861.
%K nonn,base
%O 1,2
%A _Clark Kimberling_, Mar 09 2024