Cases[Range[888888877, 888888888], _?(perniciousQ@# &)]