login
Numbers m such that c(0) <= c(1) < c(2), where c(k) = number of k's in the ternary representation of m.
3

%I #10 Mar 09 2024 11:22:05

%S 2,8,17,23,25,26,35,47,51,53,59,61,65,69,71,73,75,77,79,80,107,134,

%T 143,152,155,158,159,160,161,179,185,187,197,206,209,212,213,214,215,

%U 221,223,227,230,231,232,233,235,237,238,239,241,242

%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 8 is 22, for which c(0)=0 <= c(1)=0 < c(2)=2. So 8 is in the sequence.

%t Select[Range[1000], DigitCount[#, 3, 0] <= DigitCount[#, 3, 1] < DigitCount[#, 3, 2] &]

%Y Cf. A007089, A370853, A370855, A370856.

%K nonn,base

%O 1,1

%A _Clark Kimberling_, Mar 03 2024