ll@X,L=301,M=L+1,A=0,Y;char t[L**3*3]{};rep(d,L){rep(a,d+1)rep(b,a,d+1)t[a**3+b**3+d**3]++;rep(e,d,L)rep(f,e,L)(Y=X-d**3-e**3-f**3)>=0?A+=t[Y]:A;}wt(A);