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