program HowManySums (input, output);

uses crt;

type
  numinfo=record
    number:integer;
    count:integer;
    recurcount:integer;
  end;

var
  current:integer;
  totalcounter:integer;
  t,n:integer;
  num:array[1..12] of numinfo;
  tempnum:integer;
  x,z:integer;
  infile,outfile:text;

procedure FindSum(total:integer;currentnumber:integer);
  var
    x:integer;
  begin
    if total = t then
      begin
        inc(totalcounter);
      end
    else
      begin
        if total<t then
          begin
            if currentnumber<current then
              begin
                for x:=num[currentnumber+1].count downto 0 do
                  begin
                    num[currentnumber+1].recurcount:=x;
                    Findsum(total+num[currentnumber+1].number*x,currentnumber+1);
                  end;
              end;
          end
        else
          begin
          end;
      end;
  end;

begin
  clrscr;
  assign(infile,'DATA51.txt');
  reset(infile);
  assign(outfile,'OUT51.txt');
  rewrite(outfile);

for z:=1 to 5 do
  begin
    for x:=1 to 12 do
      begin
        num[x].number:=0;
        num[x].count:=0;
        num[x].recurcount:=0;
      end;
    read(infile,t,n);
    read(infile,num[1].number);
    num[1].count:=1;
    current:=1;
    for x:=2 to n do
      begin
        read(infile,tempnum);
        if tempnum = num[current].number then
          inc(num[current].count)
        else
          begin
            inc(current);
            num[current].number:=tempnum;
            num[current].count:=1;
          end;
      end;
    readln(infile);
    totalcounter:=0;
    for x:=num[1].count downto 0 do
      begin
        num[1].recurcount:=x;
        FindSum(num[1].number*x,1);
      end;
    writeln(outfile,totalcounter);
  end;
close(infile);
close(outfile);
end.