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

1, 3, 4, 10, 12, 13, 14, 16, 22, 28, 30, 31, 32, 34, 36, 37, 38, 39, 40, 41, 42, 43, 46, 48, 49, 58, 64, 66, 67, 85, 86, 88, 91, 92, 93, 94, 95, 96, 97, 100, 102, 103, 109, 110, 111, 112, 113, 114, 115, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127

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, A370861, A370862.

Sequence in context: A131179 A079353 A242654 * A243681 A242881 A287448

Adjacent sequences: A370857 A370858 A370859 * A370861 A370862 A370863

Keyword

nonn,base

Author

Clark Kimberling, Mar 03 2024

Status

approved