uses crt;
var n: integer;
function nt(n: integer): boolean;
var i: integer;
begin
    nt:=true;
    if n<2 then nt:=false;
    for i:=2 to round(sqrt(n)) do if n mod i = 0 then begin
        nt:=false;
        break;
    end;
end;
function sum(n: integer): longint;
begin
    sum:=0;
    while n<>0 do begin
        sum:=sum+n mod 10;
        n:=n div 10;
    end;
end;
begin
clrscr;
    readln(n);
    if (nt(n)) and (nt(sum(n))) then write('YES') else write('NO');
    readln
end.

uses crt;
 var n, ss, k, i : longint ;
  s : string ;
function prime(n : longint) : boolean ;
        var i : longint ;
     begin
    if n<2 then prime:=false else prime:=true;
    for i:=2 to trunc(sqrt(n)) do if n mod i = 0 then
                     begin
                        prime:=false;
                        break; 
                     end;
     end ;
begin
 clrscr ;
   readln(n);
str(n,s);
 for i := 1 to length(s) do
     begin
    val(s[i],k);
    ss := ss + k ;
     end ;
 if (prime(n)) and (prime(ss)) then write('YES')
  else write('NO');
end .