(println (map #(reduce +(map(fn[x](* x x))(range 1(Math/sqrt %)2))) [1 2 9 10 9801 9802 10000]))