%I #11 May 28 2023 22:19:20
%S 85,342,343,345,349,357,373,405,469,597,853,1370,1371,1374,1375,1382,
%T 1383,1385,1389,1398,1399,1401,1405,1430,1431,1433,1437,1445,1461,
%U 1494,1495,1497,1501,1509,1525,1622,1623,1625,1629
%N Numbers whose base-4 representation contains no 0's and exactly four 1's.
%H Vincenzo Librandi, <a href="/A045017/b045017.txt">Table of n, a(n) for n = 1..2700</a>
%t Select[Range[10000], DigitCount[#, 4, 0] == 0 && DigitCount[#, 4, 1] == 4 &] (* _Vincenzo Librandi_, Sep 21 2016 *)
%Y Cf. A007090.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|