#define MD 998244353
ll@N,S[]={2,3,5,7,13,17,19,31,61,89,107,127,521,607};mint t=2;wt(sum[s,0,1<<14@sum[i,0,14](s>>i&1?S[i]-N:0)<1](mul[j,0,14](s>>j&1?t**S[j]-1:t/2)));