import Data.List
import Data.Maybe
import Debug.Trace

main = interact $ f.isSquare.(read::String->Int).concat .words

isSquare :: Int ->  Bool
isSquare a = (a==).fromJust .find (a<=) $ map (^2)[1..]

f :: Bool -> String
f x = if x then "Yes" else "No"