function nto(n:longint):boolean;
var i : longint;
begin
if n < 2 then exit(false);
 for i := 2 to trunc(sqrt(n)) do
   if n mod i = 0 then exit(false);
 exit(true);
end;
var n:longint;
begin
readln(n);
while (nto(n) = true) and (n>0) do
begin n := n div 10;
end;
 if n = 0 then writeln('Yes')
   else writeln('No');
readln;
end.

program bg;

Uses crt;
Var n,i, j, d, dem, m:integer;
begin
clrscr;
write('n='); readln(n);
    if n<2 then write('NO')
    else
        begin
                i:=2;
                while n mod i<>0 do i:=i+1;
                if n=i th       en
                        begin
                        m:=n
                        while m<>0 do
                                begin
                                        m:=m div 10;
                                        d:=d+1;
                                        i:=2
                                        while m mod i<>0 do i:=i+1;
                                        if m=i then dem:= dem+1;
                                end;
        end;