/Capxach - Cặp xách

              Uses Crt;
      Var n,m,i,j:longint;
          a,f:array[0..100000] of int64;
      Begin
          readln(n,m);
          for i:=1 to m do read(a[i]);
          f[0]:=1;
          for i:=1 to m do
           begin
               for j:=1 to n do
                begin
                    if (j-a[i]>=0) then
                     f[j]:=f[j]+f[j-a[i]];
                end;
           end;
          writeln(f[n]);
          readln;
      End.