ll n,s;{rd(n);for(s=n/400*57;n%=400;s+=(n+n/4-n--/100)%7==3);wt(s-288);}