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

Offset

1,1

Links

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

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

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 23 2025

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