A370862 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, 5, 7, 10, 11, 12, 13, 14, 15, 16, 19, 21, 22, 28, 30, 31, 32, 34, 36, 37, 38, 39, 40, 41, 42, 43, 44, 46, 48, 49, 50, 52, 58, 64, 66, 67, 68, 70, 76, 85, 86, 88, 91, 92, 93, 94, 95, 96, 97, 98, 100, 102, 103, 104, 106, 109, 110, 111, 112, 113, 114

Offset

1,2

Links

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

Example

The ternary representation of 15 is 120, for which c(0)=1 <= c(1)=1 >= 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 23 2025

Crossrefs

Cf. A007089, A077267, A062756, A081603.

Cf. A370853, A370859, A370860, A370861.

Sequence in context: A101760 A165713 A105148 * A072556 A047365 A353448

Adjacent sequences: A370859 A370860 A370861 * A370863 A370864 A370865

Keyword

nonn,base

Author

Clark Kimberling, Mar 09 2024

Status

approved