perl -de0

DB<12> for (1..9) {say grep {next if  $_<5;$_%2} $_..9}
579
79
79
9
9