var a:array[1..1000000] of longint;
duyet:array[1..1000000] of boolean;
i,n,d,max:longint;
f1,f2:text;
const fi='BAI02.INP';
fo='BAI02.OUT';
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;
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
readln(f1,n);
max:=0;
for i:=1 to n do
begin
read(f1,a[i]);
if a[i]>max then max:=a[i];
if nt(a[i])=true then inc(d);
duyet[a[i]]:=true;
end;
i:=1;
while duyet[i]=true do inc(i);
writeln(f2,d,#13#10,i);
close(f1);close(f2);
end.
