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

2, 6, 8, 18, 20, 24, 26, 35, 47, 51, 54, 56, 59, 60, 61, 62, 65, 69, 72, 73, 74, 75, 78, 80, 89, 101, 105, 107, 137, 141, 143, 153, 155, 159, 162, 164, 167, 168, 169, 170, 173, 177, 179, 180, 181, 182, 183, 185, 186, 187, 188, 191, 195, 197, 207, 209, 213

Offset

1,1

Links

Table of n, a(n) for n=1..57.

Example

The ternary representation of 20 is 202, for which c(0)=1 >= c(1)=0 < c(2)=2.

Mathematica

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

Crossrefs

Cf. A007089, A077267, A062756, A081603.

Cf. A370853, A370859, A370863, A370865, A370866.

Sequence in context: A325686 A053355 A233572 * A005823 A259026 A178758

Adjacent sequences: A370861 A370862 A370863 * A370865 A370866 A370867

Keyword

nonn,base

Author

Clark Kimberling, Mar 09 2024

Status

approved