login
Numbers whose base-5 representation contains no 0's and exactly three 1's.
0

%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_