%I #14 May 21 2023 11:04:10
%S 31,157,158,159,161,166,171,181,206,231,281,406,531,787,788,789,792,
%T 793,794,797,798,799,807,808,809,811,816,821,832,833,834,836,841,846,
%U 857,858,859,861,866,871,907,908,909,911,916,921
%N Numbers whose base-5 representation contains no 0's and exactly three 1's.
%t Select[Range[1000],DigitCount[#,5,0]==0&&DigitCount[#,5,1]==3&] (* _Harvey P. Dale_, Oct 27 2019 *)
%Y Cf. A007091.
%K nonn,base
%O 1,1
%A _Clark Kimberling_