var a,v:array[1..100]of integer;
i,n,j,s:integer;
begin
   read(n);

      for i:=1 to n do
      readln(v[i]);


      for i:=1 to 24 do
      a[i]:=0;

      s:=0;

      for i:=1 to n do
      begin
      If v[i] mod 23=0 then a[24]:=a[24]+1;
          for j:=1 to 23 do
          If v[i] mod 23=j then a[j]:=a[j]+1;
          end;

      for j:=1 to 24 do
      If a[j]<>0 then s:=s+1;


    writeln(s);
    readln;
    end.