ll@n,@b,d[1d4]{};
if(n>5001){
	wt("Yes");
	exit(0);
}
rep(n-1){
	ll@a;
	b^=a;
	rep(j,8192){
		d[j^a]|=d[j];
	}
	d[a]=1;
}
wt(b<d[0]?"Yes":"No");