perl -E'say"@{[grep{!(int(5*$_/4)%7)}2019..2099]}"'