cp's OEIS Frontend

A370859 Numbers m such that c(0) < c(1) > c(2), where c(k) = number of k's in the ternary representation of m.

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