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

1, 4, 5, 7, 10, 12, 13, 14, 16, 22, 31, 32, 34, 37, 38, 39, 40, 41, 42, 43, 44, 46, 48, 49, 50, 52, 58, 64, 66, 67, 68, 70, 76, 85, 91, 93, 94, 95, 97, 98, 103, 104, 106, 109, 111, 112, 113, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 127, 128

Offset

1,2

Links

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

Example

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

Mathematica

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

Crossrefs

Cf. A007089, A077267, A062756, A081603.

Cf. A370853, A370859, A370860, A370862.

Sequence in context: A047259 A287658 A039577 * A013951 A269861 A187479

Adjacent sequences: A370858 A370859 A370860 * A370862 A370863 A370864

Keyword

nonn,base

Author

Clark Kimberling, Mar 03 2024

Status

approved