%I #15 Mar 11 2024 07:19:52
%S 1,4,10,12,13,14,16,22,31,32,34,37,38,39,40,41,42,43,46,48,49,58,64,
%T 66,67,85,91,93,94,95,97,103,109,111,112,113,115,117,118,119,120,121,
%U 122,123,124,125,127,129,130,131,133,139,145,147,148,149,151,157
%N Numbers m such that c(0) < c(1) > c(2), where c(k) = number of k's in the ternary representation of m.
%e The ternary representation of 16 is 121, for which c(0)=0 < c(1)=2 > c(2)=1.
%p filter:= proc(n) local L,m;
%p L:= convert(n,base,3); m:= numboccur(1,L);
%p numboccur(0,L) < m and numboccur(2,L) < m
%p end proc:
%p select(filter, [$1 .. 200]); # _Robert Israel_, Mar 03 2024
%t Select[Range[1000], DigitCount[#, 3, 0] < DigitCount[#, 3, 1] > DigitCount[#, 3, 2] &]
%Y Cf. A007089, A077267, A062756, A081603.
%Y Cf. A355275, A370853, A370860, A370861, A370862, A370863, A370870.
%K nonn,base
%O 1,2
%A _Clark Kimberling_, Mar 03 2024
|