OFFSET
1,1
EXAMPLE
The ternary representation of 84 is 10010, for which c(0)=3 >= c(1)=2 >= c(2)=0.
MATHEMATICA
Select[Range[1000], DigitCount[#, 3, 0] >= DigitCount[#, 3, 1] >= DigitCount[#, 3, 2] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Clark Kimberling, Mar 13 2024
STATUS
approved