%I #10 Nov 05 2023 09:01:57
%S 0,30,503,507,509,510,1015,1019,1021,1022,2015,2031,2039,2043,2045,
%T 2046,3071,4031,4063,4079,4087,4091,4093,4094,8063,8190,30719,32703,
%U 65023,65407,65503,98303,129023,130559,130815,130943,131039,131055
%N Numbers that contain a single zero in bases 2 and 10.
%t Select[Range[0,140000],DigitCount[#,10,0]==DigitCount[#,2,0]==1&] (* _Harvey P. Dale_, Apr 10 2012 *)
%Y Intersection of A030130 and A043489.
%K nonn,base
%O 1,2
%A _Zak Seidov_, May 21 2006
|