A370859 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, 10, 12, 13, 14, 16, 22, 31, 32, 34, 37, 38, 39, 40, 41, 42, 43, 46, 48, 49, 58, 64, 66, 67, 85, 91, 93, 94, 95, 97, 103, 109, 111, 112, 113, 115, 117, 118, 119, 120, 121, 122, 123, 124, 125, 127, 129, 130, 131, 133, 139, 145, 147, 148, 149, 151, 157, 175

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.

Maple

filter:= proc(n) local L, m;
L:= convert(n, base, 3); m:= numboccur(1, L);
numboccur(0, L) < m and numboccur(2, L) < m
end proc:
select(filter, [$1 .. 200]); # Robert Israel, Mar 03 2024

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. A355275, A370853, A370860, A370861, A370862, A370863, A370870.

Sequence in context: A310339 A090070 A078005 * A355275 A092428 A170943

Adjacent sequences: A370856 A370857 A370858 * A370860 A370861 A370862

Keyword

nonn,base

Author

Clark Kimberling, Mar 03 2024

Status

approved