ll n,z;{rd(n);n*=n;REP(a,1,800)REP(b,a,n%a?0:5d3)z+=n/a%b<1&&Isqrt_s((a+b)**2+4n/a/b)>=a+b*3;wt(z);}