%I #10 Jul 26 2023 03:21:04
%S 94,112,118,120,284,286,292,310,338,340,346,356,358,362,366,370,372,
%T 382,388,390,418,436,442,444,526,580,598,604,606,854,860,862,878,880,
%U 886,932,934,940,958,1016,1022,1024,1040,1042,1048
%N Numbers whose base-3 representation contains exactly one 0 and four 1's.
%t Select[Range[1100],DigitCount[#,3,0]==1&&DigitCount[#,3,1]==4&] (* _Harvey P. Dale_, Feb 10 2022 *)
%Y Cf. A007089.
%K nonn,base
%O 1,1
%A _Clark Kimberling_