function nto(n:qword):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:qword;
begin
readln(n);
while (nto(n) = true) and (n>0) do
begin n := n div 10;
end;
 if n = 0 then writeln('1')
   else writeln('0');
   readln; 
end.

program bai_giai;
var f,g:text;
    n:longint;
function ktnt(k:longint):boolean;
var i:longint;
begin
    ktnt:=false;
    if k<2 then exit;
    for i:=2 to trunc(sqrt(k)) do
        if k mod i=0 then exit;
    exit(true);
end;
function ktsnt(m:longint):boolean;
begin
    ktsnt:=false;
    while m<>0 do
        begin
            if ktnt(m)=false then exit;
            m:=m div 10;
        end;
    exit(true);
end;
BEGIN
    Assign(f,'SNT.INP');  reset(f);
    Assign(g,'SNT.OUT');  rewrite(g);
    readln(f,n);
    if ktsnt(n) then write(g,1) else write(g,0);
    close(f); close(g);
END.