$N=<>;$N%$i or$%+=2while++$i**2<$N;print$%+($i**2==$N)