#define MD 998244353
ll@N;mint D[N]{1};REP(i,1,N)D[i]=sum[j,0,i](D[j]*sum[k,j,i](D[k-j]*D[i-1-k]));wt(N%3?0:N=D[N/3]);