%I #14 May 21 2023 00:21:52
%S 3,8,13,16,17,19,23,33,38,41,42,44,48,58,63,66,67,69,73,81,82,84,86,
%T 87,89,96,97,99,108,113,116,117,119,123,158,163,166,167,169,173,183,
%U 188,191,192,194,198,206,207,209,211,212,214,221
%N Numbers whose base-5 representation contains no 0's and exactly one 3.
%t Select[Range[300],DigitCount[#,5,0]==0&&DigitCount[#,5,3]==1&] (* _Harvey P. Dale_, Sep 28 2019 *)
%Y Cf. A007091.
%K nonn,base
%O 1,1
%A _Clark Kimberling_