use bignum;print/\./?NO:"YES
$_"for.5*~-sqrt<>*8+1