Ktina128983(n)=my(s1=0,s2=0);if(n%2==1,return(0));fordiv(n,d,if(d%2==1,s1=s1+d,s2=s2+d));return(s1*s2)