#!/usr/bin/perl                                                                                       
                                                                                                      
$num = <STDIN>;                                                                                       
$num =~ s/\s+//g;                                                                                     
                                                                                                      
for ($i = 1; $i < $num; $i++) {                                                                       
    if ($i * $i == $num) {                                                                            
        print "Yes\n";                                                                                
        last;                                                                                         
    } elsif ($i * $i > $num) {                                                                        
        print "No\n";                                                                                 
        last;                                                                                         
    }                                                                                                 
}       
