const fi='snt.inp';
fo='snt.out';
var n:qword;
f1,f2:text;
procedure snt(n:longword);
var i:longword;
begin
while n<>0 do
begin
if n<2 then
begin
writeln(f2,'0');
exit;
end;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
writeln(f2,'0');
exit;
end;
n:=n div 10;
end;
writeln(f2,'1');
end;
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
readln(f1,n);
snt(n);
close(f1);close(f2);
end.