program group;
type
fxz1=array[1..30000] of integer;
fxz2=array[1..30000] of boolean;
var
ans,m,w,j,i,n,p:longint;
a:fxz1;
f:fxz2;
f1,f2:text;

procedure sort(l,r:Integer);
var
  i,j,x,y:integer;
begin
  i:=l;j:=r;x:=a[(l+r) DIV 2];
  repeat
    while a[i]<x do i:=i+1;
    while x<a[j] do j:=j-1;
    if i<=j then
    begin
      y:=a[i];a[i]:=a[j];a[j]:=y;
      i:=i+1;j:=j-1;
    end;
  until i > j;
  if l<j then Sort(l,j);
  if i<r then Sort(i,r);
end;

begin
assign(f1,'group.in');
assign(f2,'group.out');
reset(f1);rewrite(f2);
readln(f1,w);
readln(f1,n);
for i:=1 to n do
readln(f1,a[i]);
sort(1,n);
for i:=1 to n do f[i]:=true;
ans:=0;
 for i:=n downto 1 do
 begin
 j:=1;m:=a[i];
 if f[i] then begin
 while a[j]+a[i]<=w do
 begin
 if f[j] then if a[i]+a[j]<=w then
              begin a[i]:=a[i]+a[j];
                    f[j]:=false;
              end;
 inc(j);
 end;
 inc(ans);
 end;
 f[i]:=false;
 end;
writeln(f2,ans);
close(f1);close(f2);
end.