bzoj 1607: [Usaco2008 Dec]Patting Heads 轻拍牛头 暴力

用类似筛法的方法乱搞一下就好了。

代码：

var  n,i,j,max:longint;  a,s,f:array[1..1000000] of longint;begin  readln(n);  for i:=1 to n do  begin    readln(a[i]);    inc(s[a[i]]);    if a[i]>max then max:=a[i];  end;  for i:=1 to max do    if s[i]>0 then      for j:=1 to max div i do        f[i*j]:=f[i*j]+s[i];  for i:=1 to n do    writeln(f[a[i]]-1);end.