use ntheory ":all";
use feature "say";
say scalar(grep { gcd($_,13*17*19)==1 } 1..2310);