A370862 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, 5, 7, 10, 11, 12, 13, 14, 15, 16, 19, 21, 22, 28, 30, 31, 32, 34, 36, 37, 38, 39, 40, 41, 42, 43, 44, 46, 48, 49, 50, 52, 58, 64, 66, 67, 68, 70, 76, 85, 86, 88, 91, 92, 93, 94, 95, 96, 97, 98, 100, 102, 103, 104, 106, 109, 110, 111, 112, 113, 114
Offset: 1
Examples
The ternary representation of 15 is 120, for which c(0)=1 <= c(1)=1 >= c(2)=1.
Programs
-
Mathematica
Select[Range[1000], DigitCount[#, 3, 0] <= DigitCount[#, 3, 1] >= DigitCount[#, 3, 2] &]