Select[ Range[1000], floor(#/18) = floor(#/19) &]