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

Offset: 1

Author

Clark Kimberling, Mar 03 2024

Keywords

• nonn
• base

Examples

			The ternary representation of 16 is 121, for which c(0)=0 < c(1)=2 > c(2)=1.
		

Crossrefs

Cf. A007089, A077267, A062756, A081603.

Cf. A355275, A370853, A370860, A370861, A370862, A370863, A370870.

Programs

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