%I #11 May 28 2023 22:20:12
%S 128,192,514,515,520,524,544,560,640,704,770,771,776,780,800,816,896,
%T 960,2058,2059,2062,2063,2082,2083,2088,2092,2098,2099,2104,2108,2178,
%U 2179,2184,2188,2208,2224,2242,2243,2248,2252
%N Numbers whose base-4 representation contains exactly three 0's and no 1's.
%H Vincenzo Librandi, <a href="/A045028/b045028.txt">Table of n, a(n) for n = 1..1500</a>
%t Select[Range[10000], DigitCount[#, 4, 0] == 3 && DigitCount[#, 4, 1] == 0 &] (* _Vincenzo Librandi_, Sep 22 2016 *)
%Y Cf. A007090.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|