#define MD 998244353
ll@N,S[]={2,3,5,7,13,17,19,31,61,89,107,127,521,607};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?mint(2)**S[j]-1:mint())));