int@X,L=301,M=L+1,C[L],A=0,Y;rep(p,L)C[p]=p**3;double u;double t[300**3*3+1]{};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((Y=X-C[d]-C[e]-C[f])>=0){auto&s=t[Y];while(s)d>=(u=((u=s/M)-(Y=u))*M)-1?++A:A,s=(s-u)/M;}}wt(A);