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, 129

Offset

1,2

Links

Chris R. Rehmann, Table of n, a(n) for n = 1..10000

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] &]

Prog

(MATLAB) nmax = 1000; n = 1:nmax; for k = 1:nmax, c = arrayfun(@(m) sum(dec2base(k, 3)-'0'==m), 0:2); tf(k) = c(1)<c(2) && c(2)>=c(3); end, a = n(tf); % Chris R. Rehmann, Oct 22 2025

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