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

6, 18, 20, 24, 54, 56, 60, 62, 72, 74, 78, 89, 101, 105, 137, 141, 153, 162, 164, 167, 168, 169, 170, 173, 177, 180, 181, 182, 183, 186, 188, 191, 195, 207, 216, 217, 218, 219, 222, 224, 225, 234, 236, 240, 251, 263, 267, 269, 299, 303, 305, 315, 317, 321

Offset

1,1

Links

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

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, A370864, A370865, A370866, A370870.

Sequence in context: A093106 A234752 A370865 * A114452 A376881 A253914

Adjacent sequences: A370860 A370861 A370862 * A370864 A370865 A370866

Keyword

nonn,base

Author

Clark Kimberling, Mar 09 2024

Status

approved