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