|
%I #10 Jul 26 2023 03:20:44
%S 40,122,124,130,148,202,368,374,376,392,394,400,446,448,454,472,608,
%T 610,616,634,688,1106,1124,1130,1132,1178,1184,1186,1202,1204,1210,
%U 1340,1346,1348,1364,1366,1372,1418,1420,1426,1444
%N Numbers whose base-3 representation contains no 0's and exactly four 1's.
%t Select[Range[2000],DigitCount[#,3,0]==0&&DigitCount[#,3,1]==4&] (* _Harvey P. Dale_, Jun 05 2019 *)
%Y Cf. A007089.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
