A118681 Numbers that contain a single zero in bases 2 and 10.
0, 30, 503, 507, 509, 510, 1015, 1019, 1021, 1022, 2015, 2031, 2039, 2043, 2045, 2046, 3071, 4031, 4063, 4079, 4087, 4091, 4093, 4094, 8063, 8190, 30719, 32703, 65023, 65407, 65503, 98303, 129023, 130559, 130815, 130943, 131039, 131055
Offset: 1
Programs
-
Mathematica
Select[Range[0,140000],DigitCount[#,10,0]==DigitCount[#,2,0]==1&] (* Harvey P. Dale, Apr 10 2012 *)