|
%I #18 Feb 04 2023 10:16:52
%S 125,375,500,626,628,629,630,640,645,650,700,725,750,1000,1125,1876,
%T 1878,1879,1880,1890,1895,1900,1950,1975,2000,2250,2375,2501,2503,
%U 2504,2505,2515,2520,2525,2575,2600,2625,2875,3000
%N Numbers whose base-5 representation contains exactly three 0's and no 2's.
%t okQ[n_]:=Module[{dc5=DigitCount[n,5]},dc5[[5]]==3&&dc5[[2]]==0]
%t Select[Range[3000],okQ] (* _Harvey P. Dale_, Dec 23 2010 *)
%Y Cf. A007091.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
