uses crt;
var n:longint;
function nt(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;
function snt(n:longint):boolean;
begin
if n<23 then exit(false) else
begin
while n<>0 do
begin
if nt(n)=false then exit(false);
n:=n div 10;
end;
exit(true);
end;
end;
begin
clrscr;
readln(n);
write(snt(n));
readln;
end.
