%I #13 May 28 2023 01:59:54
%S 16405,16453,16465,16468,16645,16657,16660,16705,16708,16720,17413,
%T 17425,17428,17473,17476,17488,17665,17668,17680,17728,20485,20497,
%U 20500,20545,20548,20560,20737,20740,20752,20800
%N Numbers whose base-4 representation contains exactly four 0's and four 1's.
%H Vincenzo Librandi, <a href="/A045037/b045037.txt">Table of n, a(n) for n = 1..4800</a>
%t Select[Range[20000], DigitCount[#, 4, 0] == 4 && DigitCount[#, 4, 1] == 4 &] (* _Vincenzo Librandi_, Sep 23 2016 *)
%Y Cf. A007090.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|