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

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

	for i:=0 to 22 do								
    	a[i]:=0;

	s:=0;

	for i:=1 to n do								
		inc(a[v[i] mod 23]);
	

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

	writeln(s);
end.