A370860 Numbers m such that c(0) <= c(1) > c(2), where c(k) = number of k's in the ternary representation of m.
1, 3, 4, 10, 12, 13, 14, 16, 22, 28, 30, 31, 32, 34, 36, 37, 38, 39, 40, 41, 42, 43, 46, 48, 49, 58, 64, 66, 67, 85, 86, 88, 91, 92, 93, 94, 95, 96, 97, 100, 102, 103, 109, 110, 111, 112, 113, 114, 115, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127
Offset: 1
Examples
The ternary representation of 16 is 121, for which c(0)=0 <= c(1)=2 > c(2)=1.
Programs
-
Mathematica
Select[Range[1000], DigitCount[#, 3, 0] <= DigitCount[#, 3, 1] > DigitCount[#, 3, 2] &]