program ooo;
var
a,b,c:array[1..5000] of longint;
n,i,j,k,l,max:longint;
t:text;
procedure oo(q,w,e:longint);
var i,j:longint;
f:boolean;
begin
f:=false;
if e=k then begin
for i:=trunc(sqrt(q)) downto 2 do
if q mod i=0 then begin
f:=true;
break;
end;
if f=false then inc(max);
end else
for i:=w+1 to n do
oo(q+a[i],i,e+1);
end;
begin
assign(t,'choose.in');
reset(t);
readln(t,n,k);
for i:=1 to n do
read(t,a[i]);
close(t);
for i:=1 to n-k+1 do
oo(a[i],1,1);
assign(t,'choose.out');
rewrite(t);
write(t,max);
close(t);
end.