{ll@n,@d,s,c[9d6];c[max(0,(1..n)**2-(1...n)**2+d)]++;s+=c[(1..n)**2+(1...n)**2];wt(s);}