int@X,L=301,M=L+1,C[L],A=0,Y;rep(p,L)C[p]=p**3;double u;unordered_map<int,double>t;rep(a,L)rep(b,a,L)rep(c,b,L)(t[C[a]+C[b]+C[c]]*=M)+=c+1;rep(d,L)rep(e,d,L)rep(f,e,L){if(t.count(Y=X-C[d]-C[e]-C[f])){double&s=t[Y];while(s)d>=(u=((u=s/M)-(Y=u))*M)-1?++A:A,s=(s-u)/M;}}wt(A);