A031458 - OEIS

%I #14 Jul 04 2021 18:29:20

%S 8,17,23,25,44,50,52,62,68,70,74,76,78,107,125,131,133,143,149,151,

%T 155,157,159,179,185,187,197,203,205,209,211,213,221,223,227,229,231,

%U 235,237,296,314,320,322,350,368,374,376,386,392

%N Numbers whose base-3 representation has 2 fewer 0's than 2's.

%H Vincenzo Librandi, <a href="/A031458/b031458.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Range[400], DigitCount[#,3,0] == DigitCount[#,3,2] - 2&] (* _Harvey P. Dale_, Aug 23 2013 *)

%Y Cf. A007089.

%K nonn,base

%O 1,1

%A _Clark Kimberling_