#!/usr/bin/perl

$num = <STDIN>;
$num =~ s/\s+//g;

print $num;

for ($i = 1; $i < $num; $i++) {
    if ($i * $i == $num) {
        print "Yes\n";
        last;
    elsif ($i * $i > $num) {
        print "No\n";
        last;
    }
}