(do*((n(read))(i n(1- i)))((format t"~V:@<~V@{*~}*~>
"(1+(* n 2))(*(isqrt(-(* n n)(* i i)))2)0)))