%I
%S 81,245,249,261,297,405,487,489,495,513,567,737,749,753,785,789,801,
%T 893,897,909,945,1217,1221,1233,1269,1377,1463,1465,1469,1473,1477,
%U 1479,1487,1491,1503,1513,1515,1521,1541,1545,1557
%N Numbers n with property that in base 3 representation the numbers of 0's and 1's are 4 and 1, respectively.
%t Select[Range[1600],DigitCount[#,3,0]==4&&DigitCount[#,3,1]==1&] (* _Harvey P. Dale_, Mar 30 2018 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
