#define MD 998244353;
ll@N;mint @Y[N],a,b,c;rep[Y](k,N)a+=k,b+=k*k,c+=k**3;wt(a*(a+b)/2+(a-c)/3);