Sum[(Floor[(x+16383)/16384] - Ceil[x/16384])^2, {x, 0, 163840}]